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A computer code for predicting the performance of an axial -flow 
compressor with water ingestion has been developed at Purdue University 
under the NASA Grant NAG 3-62 and presented along with a test case that 
illustrates the use of the Code. The Code employs the same procedure 
and architecture as the NASA-STGSTK Code. The Code uses a meanline 
stage stacking method; stage and cumulative compressor performance is 
calculated utilizing representative triangles located at rotor inlet 
and outlet mean radii. 

The aero-thermo-mechanical interactions arising during air-water 
droplet mixture flow are taken into account in terms of four processes: 

(i) changes in blade performance parameters (deviation and efficiency), 

(ii) centrifugal action due to flow rotation, (iii) heat and mass trans- 
fer processes between the gaseous and liquid phases and (iv) droplet 
instability and break-up. The latter three are introduced at the exit 
of each blade row. The aerodynamic performance of a stage is based on 
estimated rules for deviation and efficiency with air-water mixture 
flow. The nature of such rules is discussed in detail. 

The Code provides options for the calculation of performance with 
(a) mixtures of gases such as air and water vapor and (b) air-water 
droplet mixtures with different water content. 

The Code is useful in obtaining preliminary estimates of overall 
performance of compressors with water ingestion given the design point 
details corresponding to air flow and the nature of corrections for air- 
water mixture flow. 
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CHAPTER I 


INTRODUCTION 

Water ingestion into jet engines may arise due to various circum- 
stantial reasons: high humidity in air resulting in condensation of 

water at the inlet, tire-generated spray entering the air stream during 
take-off and landing on rough runways with puddles of water, and flight 
through rain storms. It has been found that such water ingestion can 
lead to a loss of performance, engine mismatch, and loss of surge mar- 
gin, and in some cases causes undesirable mechanical and aerolastic 
effects. Both steady state and transient performance are affected and 
the operational margins in the control system also become affected. 

With ingestion of large amounts of water, water may flow through the 
engine at low power settings and a flameout may arise at higher power 
settings. From the point of view of criticality of changes in the 
performance of different engine components, the compressor presents 
unique problems and is in many ways central to the performance of the 
engine (References 1 and 2). 


The air-water mixture ingested into a compressor is characterized 
by the water content, the droplet size distribution and the vapor con- 
tent. The mixture may enter the compressor nonuni formly in the circum- 
ferential and radial directions. In the case of rain water ingestion, 
the water content may range from 2.0 percent to 15.0 percent or more. 
The water droplet size variations in rain and mist are presented in 
Figure 1. Water vapor content in the atmosphere varies with the degree 
of saturation and the altitude. Figure 2 presents the variation of 
water vapor content corresponding to the saturation state as a function 
of altitude. Some typical values of vapor content corresponding to the 
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saturation state under different temperature and pressure conditions 
that are of interest in aircraft operation are given in Table 1. 

At the end of each stage, and therefore also at the exit of a 
multistage compressor, the characteristics of the air-water mixture 
undergo modification: water, vapor and air become redistributed; the 

work done on the gaseous phase and efficiency become affected; and the 
stalling characteristics of stages undergo changes. 

The performance of a compressor stage at a given speed and flow 
coefficient undergoes a change during water ingestion, compared to the 
performance with air flow, on account of a combination of processes 
associated with droplet-laden air flow: 

(i) change in airfoil performance; 

(ii) centrifugal action causing motion and accumulation of water 
and vapor towards the tip and hub sections, respectively; and 

(iii) heat and mass transfer between the two phases. 

These processes become further complicated due to: 

(a) droplet impact and rebound at the blades and casing, 

(b) droplet reingestion from blade surfaces into wakes, 

(c) droplet break-up to remain under the critical size and 

(d) droplet size distribution. 

For a given compressor with specified 

(i) blade and blade-loading, 

(ii) aspect ratio and 

(iii) interstage spacing 

one can examine the changes in performance in terms of two major 
parameters: 

(a) changes in aerodynamic performance and 

(b) characteristic times available for centrifugal action and 
heat and mass transfer processes. 

The changes in a given compressor depend upon the following: 

(i) operating speed and throttle setting; 

(ii) water and water vapor mass fractions in the air-water mixture 
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TABLE 1 


SATURATION VALUES OF WATER VAPOR 
UNDER TYPICAL CONDITIONS 


TEMPERATURE PRESSURE WATER VAPOR 


lb m , vapor 


lb m , vapor 

lb , dry air 
m 


lb , mixture 
. m 


59 

14.696 

0.011 

0.011 

86 

14.696 

0.027 

0.026 

104 

125.4 (l) 
155.8 (2) 
176.1^ 
65. I* 5 * 

14.696 

22.402^ 

22.402^ 

22.402^ 

12.648^ 

0.049 

0.047 

0.060 

0.057 

0.148 

0.129 

0.275 

0.216 

0.025 

0.024 

212 

15.698 

9.124 

0.901 

212 

15.494 

11.459 

0.920 

212 

15.365 

13.661 

0.932 


Note: 


Condition corresponding to 


(.) 

Mach 

( 2) 

Mach 

(3) 

Mach 

U) 

Mach 

(3) 

Mach 

(c) 

Mach 


number = 
number - 
number = 
number = 
number = 
number = 


0.8 when 
0.8 when 
0.8 when 
0.8 when 
0.8 when 
0.8 when 


T = 59°F 
T = 86°F 
T = 104°F 
p = 14.696 psi 
T = 5.55°F ' 

p = 8.298 ps i 


15,000 ft. altitude 
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flow at entry; and 

(iii) water droplet size distribution. 

In order to determine the performance of an axial flow compressor 
based on the aforementioned physical model, a three-dimensional flow 
calculation procedure is eventually desirable. However there are at 
present considerable uncertainties in regard to the various two phase 
flow processes associated with droplet-laden gas flow in general and 
in axial-flow compressors in particular. It is therefore considered 
that a parametric mean-line (one-dimensional) model should be developed 
in the first instance for determining the overall performance of a com- 
pressor stage with water ingestion. Such a calculation scheme requires 
incorporation of a stage-stacking procedure for use in multi-stage 
machines. 

The current report describes such a calculation procedure written 
in the form of a computer code named the NASA-WISGSK Code. It is 
similar to the NASA-STGSTK Code (Reference 3) written for the purposes 
of calculating the off-design performance of axial-flow compressors 
given the details of the design point. 

1 . 1 Background 

A model for the calculation of overall performance of a multi-stage 
axial-flow compressor was developed based upon a mean-line, stage- 
stacking procedure (Reference 4). The model incorporates all of the 
essential features of droplet-laden air flow: 

(i) droplet motion during ingestion, 

(ii) droplet-blade interactions, 

(iii) blade performance changes, 

(iv) centrifugal action, 

(v) heat and mass transfer processes and 

(vi) droplet break-up. 

Two limiting cases have been considered: 

(i) droplets generally following the air flow path and 


4 



(ii) droplets having equal probability of motion in all directions. 
Figure 3 illustrates the latter case which applies to large droplet 
sizes. The calculation procedure adopted with the model is 

(a) to calculate a blade row (rotor or stator) performance for 
two phase flow and 

(b) to "correct 11 the exit conditions for centrifugal action and 
heat and mass transfer based upon the (characteristic) times 
available for those processes, and for droplet size changes 
based on the concept of a critical diameter. 

In order to calculate the transport and accumulation of water radially 
outwards, the flow is divided into ten streamtubes along the span and 
the calculations are carried out in the time domain over the available 
time (across the blade row). Water on the surface of blades is dis- 
tinguished from that in the blade passages. The corrected conditions 
constitute the inlet conditions for the next blade row, and so on for 
various stages in a multistage machine. The calculation procedure, the 
associated computer code, namely the PURDU-WICSTK Code, and an illus- 
trative case are presented in Reference 5. 

The foregoing calculation procedure permits determination of the 
aerodynamic performance of a chosen section (such as the mean section), 
a compressor stage at given initial and operating conditions provided 
the details of the blade section are available. In other words, at 
design and at off-design conditions, the deviation of fluid flow over 
a blade section and the efficiency of the blade section are determined 
directly for given initial flow conditions. 

The calculation procedure also permits such a direct determination 
of blade performance at other spanwise locations of a stage provided 
that, once again, details regarding the section under consideration are 
available. Such a calculation is again performed on a one-dimensional 
basis. It is, of course, necessary to account for the redistribution 
of water and water vapor due to centrifugal action across the span of 
the compressor. Thus, in most cases the hub sections may become 
depleted of water but repleted with water vapor, and there may arise 
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an appreciable accumulation of water in the tip sections. In the case 
of a compressor with many stages, there may also arise a change in the 
condition of the fluid mixture at the mean section of a stage. 

The calculation procedure can be utilized for any specified inlet 
mixture of air, water and water vapor. When calculations have been 
performed for a compressor stage under a variety of conditions, one of 
the interesting results that can be obtained is a set of correlation 
rules for 

(a) diffusion factor and 

(b) efficiency for the particular type of blading in terms of 
flow coefficient and mass fraction of water content. 

Such correlation rules may then be used to obtain off-design performance 
of the compressor utilizing a considerably simplified procedure such as 
for example the procedure of the NASA-STGSTK Code. 

It will be recalled that the blade outlet conditions obtained on 
the basis of droplet-laden air flow over a blade section need to be 
"corrected" for (a) centrifugal action, (b) heat and mass transfer 
processes between the gaseous and the liquid phases and (c) droplet 
size adjustment according to the PURDU-WICSTK Code procedure. The 
corrected values then represent the final outlet conditions from a 
stage and thus the initial conditions into a following stage, if any. 

The correlation rules for diffusion factor and efficiency are 
therefore of use only to obtain the initial aerodynamic performance of 
a blade section with two phase flow. The correlation rules will apply 
to the compressor for which they have been obtained utilizing the 
PURDU-WICSTK Code. 

By performing such calculations on a number of compressors with 
different types of blading it is expected that distinct trends can be 
established in the correlation rules. It is then possible to utilize 
the generalized correlation rules for specific types of blading and 
thus to calculate the off-design performance of compressors. 
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The NASA-*WISGSK Code, described in this Report, has been 
designed assuming that such correlation rules are available. 

1 .2 Illustrative Example 

The utilization of the NASA-WISGSK Code is illustrated here 
utilizing the design details for a small 6-stage axial-flow Test 
Compressor consisting of the axial stages of a T-63 engine. Details 
regarding the Test Compressor are provided in Appendix 1. 

It is of interest to point out that a series of tests has also 
been conducted on the Test Compressor with water ingestion, and the 
results of such tests have been reported in References 6 and 7. 

1 .3 Outline of the Report 


Chapter II of the Report is devoted to a description of the overall 
program. The subroutines and external functions are listed in Chapter 
III. A listing of the input data and the output obtained in the code 
are given in Chapters IV and V respecti vely. In Chapter VI, an 
illustrative test case is presented along with a discussion on the 
utilization of the code. 
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CHAPTER II 


OVERALL PROGRAM DESCRIPTION 

The NASA-WISGSK Code is based on two earlier studies: 
i) the development of the PURDU-WICSTK Code for the calcula- 
tion of the performance of multi-stage compressors with 
water ingestion (Reference 5); and 
ii) the NASA-STGSTK Code for the determination of the off-design 
performance of axial -flow compressors (Reference 3). 

2.1 Description of the PURDU-WICSTK Code and the NASA-STGSTK Code 

2.1.1 The PURDU-WICSTK Code 


The one-dimensional flow equations for two phase flow in axial 
compressors have been derived in detail and presented in Reference 4. 
Those equations are suitable for the calculation of performance of any 
chosen section along the span of an axial compressor blade row. The 
PURDU-WICSTK Code is based on those equations. For given initial 
conditions at the entry to a stage, the outlet conditions can be cal- 
culated using those equations. 

The PURDU-WICSTK program deals with a fluid that may consist of 
(a) a mixture of three different gases and (b) a mixture of two types 
of water droplets, distinguished by size. The mixture of gases may 
consist of air and water vapor along with another gas when necessary. 
The water droplets may be either "small" or "large" diameter droplets 
or a mixture of small and large droplets. Small droplets are defined 
as those that follow the gas flow path and hence, absorb work input 
into the compressor along with the gaseous phase. Large droplets are 
assumed to move largely independently of the gas phase, with equal 
probability of motion in all directions, and without absorbing work 
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input but introducing drag losses. Currently one can only choose 
the sizes for small and large droplets in an arbitrary fashion; for 
example if small droplets are assumed to be of mean diameter equal to 
0(10 ym) large droplets may be assigned a mean size of about 1,000 ym 
in diameter. In a general two-phase mixture that is utilized as the 
working fluid in a compressor, the proportion of various constituents 
(namely, differnt gases and two types of droplets) may be chosen as 
desired in the initial conditions assumed for a calculation. Thus, to 
consider humid air carrying large droplets, the content of small drop- 
lets is set equal to zero while water vapor content is related to 
humidity. 

The performance of a stage of a compressor is based in the PURDU- 
WICSTK Code on five physical models as follows: 

(1) Model for the calculation of stage performance with respect to 
the gaseous phase and water droplets. 

(2) Model for droplet motion across a blade row from a chosen 
upstream location to a designated downstream location. 

(3) Model for centrifuging of water droplets. 

(4) Model for heat and mass transfer processes between the two 
phases; and 

(5) Model for droplet break-up and equilibration with respect 
to size. 

The foregoing five models have been described in detail in Reference 
5. The performance of a stage is calculated for given initial and 
operating conditions with respect to the gaseous phase and the water 
droplets. Regarding small droplets, any fraction of their total number 
may be taken into account depending upon assumptions relating to droplet 
impingement and rebound processes. Then, at the exit of a blade row, 
the three major processes, namely (1) centrifugal action on droplets, 

(2) heat and mass transfer processes between the two phases and (3) 
droplet size adjustment, are taken into account. When the stage per- 
formance parameters are "corrected" for the afore-mentioned three 
processes, one obtains the final outlet conditions from a stage. The 
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outlet conditions from a stage are modified, to account for geometry 
of compressor, in order to obtain the initial conditions for the next 
stage, where such exists. Calculations are repeated for subsequent 
stages based on the well-known concept of stage-stacking. The Code 
can be used to predict the design point performance as well as 
off-design performance of a multi-stage compressor. 

2.1.2 The NASA-STGSTK Code 


The details regarding the NASA-STGSTK Code are given in 
Reference 3. 

2.2 Correlations of Performance Parameters with Water Ingestion 

The two principal performance parameters for axial -flow com- 
pressor blading are (i) the stage pressure-rise coefficient and (ii) 
the aerodynamic efficiency of a blade row. These may be expressed as 
functions of flow coefficient for air flow and air-water mixture 
flow through the compressor. The stage pressure-rise coefficient can 
be obtained from a knowledge of deflection of the working fluid over 
a rotor blade row or from a knowledge of blade metal angles and 
incidence and corresponding deviation angles. 

The methods of obtaining correlations for (i) deviation of the 
working fluid over a blade, (ii) the stage pressure-rise coefficient 
and (iii) the aerodynamic efficiency of blade rows are described in 
the following. 

2.2.1 Deviation Angle 

A general rule for deviation may be written as follows 
(Reference 9). 


6-6* = k 




( 2 . 1 ) 
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where 6 and D are the deviation angle and the equivalent diffusion 
eq 

ratio, respectively; ( )* denotes values at the reference point; and 
k is a (porportional ity) constant. According to Lieblein (Reference 8), 
the equivalent diffusion ratio can be written as follows: 



COS&2 
cos ex" 



1 . 12+0.011 7(i-i*) 


1.43 


+ 


cos 2 3x 

0.61 

a 


tan3i 


T7~~ tan3 2 
21 



( 2 . 2 ) 


the equivalent diffusion ratio at the reference point can be obtained 
by setting i=i*. Thus, Equation (2.1) can be rewritten as follows: 


5- 6* = 1.12k [(W 1 /W 2 ) - (W 1 /W 2 )*] 

+ 0.0117 (i-i*) 1 ’ 43 k (W-,/W 2 ) 

+ 0.61 k (sin e - sin e*)/a (2.3) 

Assuming that the second and third terms on the right-hand side can be 
incorporated into the first term, one can write the following equation. 

6- 6* = K [(Wg/I^) - (W 2 /W-,)*J (2.4) 

where K is referred to as the deviation constant. The deviation con- 
stant can be related to the amount of diffusion in a blade passage in 
the case of gas (single phase) flow through a compressor. In the case 
of droplet-laden gas flow, it is assumed that the deviation constnt 
can still be related to the diffusion in a blade passage utilizing 
the water content in the mixture as a parameter. One can then obtain 
the deviation angle for given operating conditions and hence the 
corresponding blade outlet flow angle. 
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2.2.2 Correlations for Stage Pressure-Rise C oefficient 


The stage pressure-rise coefficient for a compressor stage may 
be defined as follows. 


= 


nC P flT 


o 


where n 

c p 

AT 

o 

U 


stage adiabatic efficiency 
specific heat at constant pressure 

rise in stagnation temperature across a stage 
rotor whirl speed 


The stage pressure-rise coefficient can be related to the stage flow 
coefficient utilizing water content. 

2.2.3 Correlations for Efficiency 

The adiabatic efficiency of the compression processes in a stage 
may be defined as follows: 

pr (y-1)/y_ -j 
n TR - 1 

where PR and TR are the stagnation pressure ratio and the stagnation 
temperature ratio across a stage, and y is the ratio of specific heats. 
The stage adiabatic efficiency can be related to the stage flow 
coefficient utilizing water content as the parameter. 

2.2.4 Procedure for Obtaining Correlations for Deviation Angle , 
Pressure-Rise Coefficient and Efficiency 

It is common practice in compressor analysis to obtain correla- 
tions for the deviation angle, pressure-rise coefficient and efficiency 
for different classes of blading through cascade or compressor tests. 
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Such correlations with respect to flow coefficient are well-known in 
literature for air or other (single-phase) gaseous fluids. Similar 
correlations are not available for droplet-laden flows from experimental 
results. 

One method of generating such correlations is by the use of the 
PURDU-WICSTK Code. The performance of a series of typical compressors 
can be calculated utilizing that code and from such performance calcu- 
lations, the variation of the parameters of interest can be extracted 
for different classes of blading in those compressors while operating 
with two-phase fluids. The parametric variations may then be related 
to blading design and operational conditions. Thus, based on the per- 
formance results obtained on any compressor utilizing the PURDU-WICSTK 
program over appropriate ranges of initial and operating conditions, one 
can generate correlations for deviation angle, pressure-ri se coefficient 
and efficiency in terms of the following. 

(i) Values of deviation constant, K, as a function of the 
diffusion of the working fluid; 

(ii) Values of pressure-ri se coefficient as a function of the 
flow coefficient; and 

(iii) Values of efficiency as a function of the flow coefficient. 

The correlations are obtained for each class of blading or stage with 
water content at entry to that blading or stage as one parameter and 
the operating speed as the other parameter. Those correlations can 
then be utilized in the NASA-WISGSK Code for obtaining the performance 
of a similar compressor under desired operating conditions. When a 
series of such correlations have been generated for various classes of 
blading and for various operating conditions, several classes of 
axial-flow compressors can be analyzed on this basis in order to 
determine changes in performance with water ingestion. 

In order to illustrate the nature of correlations that can be 
obtained utilizing the PURDU-WICSTK program and that are suitable for 
incorporating into the NASA-WISGSK program, a series of correlations 
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have been obtained for the 6-stage axial -flow Test Compressor, re- 
ferred to in Section 1.2 of the report, utilizing the PURDU-WICSTK 
program. 

Some examples of such correlations have been obtained under the 
following conditions. 

Operating speed ... 90 percent design speed. 

Droplet size . . . 600 ym (referred to as large). 

Water content as mass 
fraction of water 

in the mixture . . . 0.000, 0.025, 0.075, 0.125, 

and 0.150. 

The correlations are presented in three parts, namely (i) for the 
deviation constant, (ii) for the pressure-rise coefficient and (iii) 
for the efficiency. In each case, the correlations have been given for 
different stages of the compressor. According to the basic design of 
the compressor, the type of blading employed in the different stages 
can be grouped as follows. 

a) blading in stage 1; 

b) blading in stage 2; and 

c) blading in stages 3, 4, 5 and 6. 

From the point of view of blade loading, it appears that it is 
necessary to distinguish further between stage 3 and stages 4, 5 and 6. 

The correlations for deviation constant have been presented in the 
following figures. 

Figure 4(a): Deviation constant vs [ (W^/W-j ) - (W 2 /W 2 )*J 

(Stage 1) 

Figure 4(b): Deviation constant vs [( W^/W-j ) - (W^/W-j)*] 

(Stage 2) 

Figure 4(c): Deviation constant vs [ ( W^/W-j ) - (W 2 /W-j)*] 

(Stages 3, 4, 5, 6) 
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The correlations for pressure-rise coefficient corresponding to 
the afore-mentioned examples of correlations for the deviation constant 
have been presented in the following figures. 


Figure 5(a): 

ip/ip* 

vs 


(Stage 1) 

Figure 5(b) : 

ip/ip* 

vs 


(Stage 2) 

Figure 5(c): 

\p/ \p* 

vs 


(Stage 3) 

Figure 5(d): 

ip/\p* 

vs 

(p/ cp* 

(Stages 4, 5, 6) 


In these correlations, the stage pressure-rise coefficient and stage 
flow coefficient are normalized with respect to the design point values. 

A set of examples of correlations for the adiabatic efficiency 
of different stages have been presented in the following figures. In 
all of the cases again only large droplets have been considered. The 
adiabatic efficiency is again normalized with respect to the design 
point value. 


Figure 6(a) 
Figure 6(b) 
Figure 6(c) 
Figure 6(d) 


ip/ip* VS <p/(p* 
ip/ip* VS (p/<p* 
\ pi tj;* VS <p/<p* 
\p/ ip* VS (p/(p* 


(Stage 1) 

(Stage 2) 

(Stage 3) 

(Stages 4, 5, 6) 


It is of interest to observe the following from the correlations 
presented . 

(i) The correlations for both K and n show that there is some 
similarity in regard to their variation with water content 
in the entry mixture. 

(ii) The variation of K with respect to diffusion is rather 
severe for flow diffusion values in the vicinity of the 
design point, especially at the higher values of water content 
in the entry mixture. At large values of diffusion, the water 
content does not seem to have a significant effect. 

It is of importance to note that the nature of variations of K and 
n may be different at other operating speeds. However, it is assumed 
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that such variations are small and that similar variations can be 
assumed over appropriate ranges of flow coefficients at other speeds. 
Nevertheless, the correlations presented should be considered as 
applicable only to the type of blading and blade-loading in the 
Test Compressor. 

Other aspects of predictions of the Test Compressor performance 
utilizing the PURDU-WICSTK program can be found in References 6 and 7. 

2.3 Modification of NASA-STGSTK Code to NASA-WISGSK Code for 
Use with Two-Phase Flow 


The NASA-WISGSK Code for use with two-phase flow has been obtained 
by modifying the NASA-STGSTK Code in two respects. 

(i) Introducing the stage characteristics for two-phase fluid 
flow in place of the stage characteristics utilized 
originally for air flow through the compressor; and 

(ii) Incorporating various two-phase fluid associated processes 
at the stage exit in order to obtain the final state of the 
fluid at that location. 

The principal stage characteristics are the efficiency and the 
pressure-rise coefficient. They are obtained at a reference operating 
speed, usually the design operating speed although another operating 
speed may be utilized. 

The two-phase fluid flow effects of major interest are (i) the 
redistribution of water due to centrifugal action, (ii) the heat and 
mass transfer giving rise to a change in the temperature and mass 
fraction of the mixture constituents and (iii) the change in droplet 
size. 

2.3.1. Efficiency Variation with Respect to Flow Coefficient 

The reference curves for the variation of efficiency with respect 
to flow coefficient, obtained at the reference speed for various values 
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of water content in the entry mixture, for a particular compressor 
stage are adapted for use at other operating speeds in the 
NASA-WISGSK Code in two steps as follows. 

(i) First, the reference curve for the case of air flow (and 
no water in the mixture) is shifted as illustrated in 
Figure 7 for use at the desired off-reference operating 
speed over the appropriate range of flow coefficient. 

(ii) Next, the reference curve is modified for the presence of 
water following the correlations obtained for different 
water contents in the mixture at the reference speed. This 
part of the procedure is also illustrated in Figure 7. 

2.3.2 Pressure-Rise Coefficient vs Flow Coefficiency 

In the NASA-STGSTK Code, the pressure-rise coefficient is calcula- 
ted in the subroutine CSPSI (Reference 3). In that subroutine, the 
pressure-rise coefficient is calculated based on the deflection of air 
flow over a rotor blade which in turn depends upon the blade outlet 
flow angle and hence the deviation angle. The blade deviation angle 
is estimated utilizing the following rule. 

6-6* = K [(W 2 /W 1 ) - (W 2 / W^*] 

with K = -10 for the case of air flow. In the case of operation with 
air-water mixture flow, the deviation constant, K, is a function of 
water content and amount of diffusion. 

Utilizing the appropriate values of K, based, for example, upon the 
type of correlations presented in Figure 4, the pressure-rise coefficient 
can be obtained at the reference speed and at off-design speeds for 
various values of water content in the entry mixture as a function of 
flow coefficient. 
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2.3.3 Correction for Two-Phase Effects 


The NASA-WISGSK Code incorporates the following new features in 
order to correct the blade outlet conditions that are obtained based 
upon stage characteristics for the following two-phase fluid flow 
effects : 

(i) droplet size adjustment; 

(ii) centrifugal force action; and 

(iii) heat and mass transfer. 

The details regarding modelling of these processes can be found in 
Reference 5. 

2 . 4 The General Procedure for Utilization of the NASA-WISGSK Code 

It is expected that for the compressor under consideration, the 
following stage characteristics are available for each stage of the 
compressor at a convenient reference speed over a range of mass flows, 
(i) Adiabatic efficiency as a function of gas phase flow 

coefficient for various values of mass fraction of water 
in the mixture; and 

(ii) Deviation factor as a function of diffusion of the working 
fluid for various values of mass fraction of water in the 
mixture. 

Utilizing the latter, the pressure-rise coefficient characteristics 
for different stages can be obtained as a function of flow coefficient 
utilizing the mass fraction of water in the entry mixture as a 
parameter. 

As stated earlier (Section 2.3.1) the efficiency curves may need 
to be shifted for use at off-reference operating speeds. The 
pressure-rise coefficient characteristics are treated as applicable at 
all values of operating speed, at least over a substantial range of 
speeds. 
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It can be visualized that the efficiency and the pressure-rise 
coefficient characteristics may be available at discrete values of 
mass fraction of water. Since the mass fraction of water changes along 
a compressor flow path in different ways along different streamlines, it 
is useful to devise rules for interpolating the stage characteristics 
for various values of mass fraction of water. 

The water vapor in the mixture at entry to a compressor stage 
is taken into account in the form of mass fraction of vapor for the 
purposes of determining the thermodynamic properties as a part of the 
gas phase in the mixture. 

The initial and operating conditions to be specified in utilizing 
the NASA-WISGSK Code are the following: 

(i) the operating speed; 

(ii) the mixture mass flow; 

(iii) the mixture composition including the droplet size; and 

(iv) the ambient conditions in the mixture entering the 
compressor. 

The calculation procedure may then be divided into three parts as 
follows : 

(i) calculation of performance of compressor at reference and 
off-reference speeds with air flow only; 

(ii) calculation of performance of compressor at reference speed 
and different values of mass flows with various values of 
water content; and 

(iii) calculation of performance of compressor at off-reference 

speeds with various values of mixture flows and mass 

fractions of water. 

In each case, calculations may be performed along any streamtube 
selected in the compressor with specified (a) mass flow and mixture 

composition at entry, (b) area change and (c) work input at appropriate 

rotor locations. It may be recalled that the calculation procedure is 
based on a one-dimensional formulation. 
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2.4.1 Calculation with Air Flow 


The performance calculation with air flow at the reference and 
the off-reference speeds is intended to establish (a) the extent to 
which the stage efficiency curve needs to be adjusted by shifting over 
the desired range of flow coefficient (utilizing the procedure de- 
scribed in Section 2.3,1) and (b) the ranges of flow coefficient that 
can be covered in the performance calculation at different operating 
speeds utilizing the available stage characteristics . When the com- 
pressor performance is available from another source at different 
operating speeds, one can compare such performance parameter values 
with those obtained utilizing the NASA-WISGSK Code. Utilizing a 
trial -and-error procedure, any small differences in performance at 
off-reference speeds can be adjusted through modifying the stage 
characterisitics available at the reference speed for various 
off-reference speeds. However, such modifications need to be introduced 
with considerable judgement. 

The calculation procedure for given (a) ambient conditions, (b) 
operating speed and (c) air mass flow may be summarized as follows. 

(i) The flow coefficient is determined at the compressor 
inlet. 

(ii) The stage efficiency can be obtained directly from the 
efficiency vs flow coefficient curve for the stage when 
the operating speed under consideration is the same as the 
reference speed. If the operating speed is different 
from the reference speed, the efficiency-flow coefficient curve 
has to be shifted appropriately (Section 2.3.1) and the 
efficiency then obtained for the value of flow coefficient 
specified. 

(iii) The stage pressure-rise coefficient characteristic is 

utilized for obtaining the value of pressure-ri se coefficient 
at the specified value of flow coefficient. 
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(iv) The stage pressure ratio and temperature ratio are 
calculated as follows: 

U 2 

PR = 1.0 + p — =j= — 
p ol 

TR = 1.0 + (PR y ~ 1/y - 1.0) n 

(v) The resulting stage outlet conditions become the inlet 

conditions for the next stage, if any. The procedure given 
under items (i) to (iv) is then repeated for each of the 
stages until the compressor outlet station is reached. 

(vi) The performance of each stage of the compressor as well as 
the overall performance of the compressor can then be 
obtained from the predictions for the given operating 
conditions. 

(vii) The entire procedure may be repeated at the desired 
operating speeds and mass flows. 

2.4.2 Calculation with Air-Water Mixture Flow at Reference Speed 

At the reference speed, the available stage characteristics 
(pertaining to efficiency and pressure-rise coefficient) are usable 
directly. 

The procedure for calculation of performance at various values of 
mixture mass flow (or gas phase flow coefficient and liquid phase mass 
fraction) is identical to that described in Section 2.4.1 except for 
the following: (i) the efficiency and pressure-rise coefficient values 

should be chosen for the local value of water content in the entry 
mixture for each stage and (ii) the stage outlet conditions have to be 
corrected for two-phase flow effects. 

The primary purpose of the calculation of performance at the 
reference speed is to establish the appl icabil ity of the available 
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stage characteristics for the ranges of water content that are 
likely to arise in different stages under different conditions. Since 
centrifugal action is only a function of the rotation in the flow 
field, by performing calculations at the reference operating speed, the 
effect of water content and the applicability of the available stage 
characteristics can be examined in the different stages of a com- 
pressor. If the general trend of performance changes is acceptable, 
the pressure-rise coefficient information can be utilized with some 
confidence at off-reference speeds. 

2.4.3 Calculation with Air-Water Mixture Flow under 
General Conditions of Operation 

At off-reference operating speeds, the efficiency -flow coefficient 
curves need to be shifted to become applicable over the relevant range 
of flow coefficient in each stage of a compressor. 

The calculation procedure for obtaining the performance is then 
identical to that described in Section 2.4.1 except for the following: 
(i) the efficiency and pressure-rise coefficient values should be chosen 
for the local values of water content in the entry mixture for each 
stage, (ii) the efficiency curves should be moved as required to 
become applicable over the relevant range of flow coefficient at the 
operating speed specified and (iii) the correction of stage outlet 
conditions for two-phase flow effects. 

The stage outlet conditions are corrected for the following 
effects associated with two-phase flow: 

a) Droplet size adjustment; 

b) Centrifugal force action; and 

c) Heat and mass transfer. 

The stage outlet conditions are then obtained in terms of mixture com- 
position, gas phase properties and liquid phase properties, including 
the droplet size. 
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CHAPTER III 


SUBROUTINES AND EXTERNAL FUNCTIONS 

The following is the list of subroutines and external functions 
used in the NASA-WISGSK code. The subroutines and external functions 
consist of two parts as follows: Part I of the subroutines and external 

functions is the same as those in PURDU-WICSTK code (Reference 5) 
and Part II of the subroutines and external functions closely follows 
those in NASA-STGSK code (Reference 3). Only brief descriptions of 
these subprograms are given here. A more detailed description of each 
subprogram is presented in Appendix 3. 

PART I 


Subroutine WICSPC : calculation of stage performance based on the 

analytical/correlation method for large droplet. 

Subroutine WICSPD : calculation of design point performance. 

Subroutine WICSCC : calculation of the equivalent pressure ratio, 

equivalent temperature rise ratio, and stage adiabatic efficiency 
for a particular stage based on the inputed stage characteristic 
curves. 

Subroutine WICGSL : calculation of single-phase (gas) flow loss. 

Subroutine WICSDL : calculation of loss for small droplets on account 

of the change in momentum thickness of boundary layer due to the 
presence of such droplets. 

Subroutine WICSTL : calculation of loss due to Stokesian drag of large 

droplets in the free stream of blade passage. 

Subroutine WICFM L: calculation of loss due to film formed on blade 

surface when large droplets are present either by themselves or 
along with small droplets. 
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Subroutine WICRSL : calculation 

large droplets are present 
small droplets. 

Subroutine WICVT : calculation 

angles. 

Subroutine WICCEN : calculation 

to centrifugal action. 
Subroutine WICDMS : calculation 

centrifuged. 

Subroutine WICDML : calculation 

centrifuged. 

Subroutine WICDRG : calculation 

Subroutine WICMAC : calculation 

Function WICASD : calculation 

Subroutine WICBQA : calculation 

Subroutine WICEDD : calculation 

Function WICED : calculation 

Function WICMTK : calculation 

Function WICLOS : calculation 

Subroutine WICIRS : calculation 

rotor for small droplet. 
Subroutine WICIRL : calculation 

rotor for large droplet. 
Subroutine WICISS : calculation 

stator for small droplet. 
Subroutine WI C I SL : calculation 

stator for large droplet. 
Subroutine WICWAK : calculation 

Subroutine WICHET : calculation 

and droplets. 

Subroutine WICMAS : calculation 

and droplets. 

Function WICMTR : calculation 

Function WICPWB: calculation 


of loss due to the rough surface when 
either by themselves or along with 

of components of velocity triangle and 

of swanwise displacement of droplets due 

of amount of small droplets which are 

of amount of large droplets which are 

of drag force on large droplet, 
of Mach number. 

of acoustic speed in two phase flow, 
of blade outlet angle, 
of equivalent diffusion at design point, 
of equivalent diffusion, 
of dimensionless momentum thickness, 
of total pressure loss coefficient, 
of droplet impingement and rebound in 

of droplet impingement and rebound in 

of droplet impingement and rebound in 

of droplet impingement and rebound in 

of water reingestion into wake, 
of heat transfer between gaseous phase 

of mass transfer between gaseous phase 

of mass transfer rate, 
of vapor pressure. 
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Function WICNEW: 

calculation 

of 

procedure. 



Function WICTAN: 

calculation 

of 

Function WICBPT: 

cal culation 

of 

Function WICSH: 

cal culation 

of 

Subroutine WICSIZ : 

calculation 

of 

Subroutine WICPRP: 

calcul ation 

of 

Function WICCPA: 

calculation 

of 

for air. 



Function WICCPH: 

calculation 

of 

for vapor. 



Function WICCPC: 

calculation 

of 


for methane. 


new trial value in the interative 

the value of tangent function. 

boiling point. 

specific humidity. 

nominal droplet size. 

flow properties for gaseous phase. 

specific heat at constant pressure 

specific heat at constant pressure 

specific heat at constant pressure 


PART II 


Subroutine NASA : subroutine which corresponds to MAIN program of 

NASA-STGSTK code. 


Subroutine CSI NPT : 
Subroutine CSPREF : 
flow conditions. 
Function CPFM : 

static temperatu 
Subroutine CSETA : 
cient. 

Subroutine CSPSI : 
coefficients 
Subroutine CSDEVS : 
calculation. 
Subroutine CDEVSL : 
calculation. 
Subroutine CSDE V: 
calculation. 
Subroutine CSDEVL : 
calculation. 


reads and writes the Part II of input data, 
calculates parameters at design speed and design 

calculates specific heat at constant pressure from 

re using fifth degree polynomial. 

calculates adiabatic efficiency versus flow coeffi- 

calculates pressure coefficients for inputed flow 

calculates stator deviation angle for small droplet 

calculates stator deviation angle for large droplet 

calculates rotor deviation angle for small droplet 

calculates rotor deviation angle for large droplet 
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Subroutine CSETA1 : calculates adiabatic efficiency for small droplet 

calculation. 

Subroutine CSETAL : calculates adiabatic efficiency for large droplet 

calculation. 

Subroutine CSPSD : alters pressure coefficient for off design speeds. 

Subroutine CSPAN : alters flow coefficient and pressure coefficient 

for blade reset. 

Subroutine CSOUPT : calculates and prints out stage performance for 

small droplet calculation. 

Subroutine CQUPTZ : calculates and prints out stage performance for 

large droplet calculation. 

Function DELK70 : alters diffusion constant for 70% rotor speed. 

Function DELK80 : alters diffusion constant for 80% rotor speed. 

Function DELK10 : alters diffusion constant for 100% rotor speed. 

Function DPHI : alters flow coefficient for different rotational 

speed. 


26 



CHAPTER IV 


INPUT DATA 

The following is a list of the input data as they are read in the 
NASA-WISGSK code. All input data that are needed to use the code are 
described herein. The input data consist of two parts as follows: 

Part I of the input data is the same as those in the PURDU-WICSTK code 
(Reference 5), and Part II of the input data follow very closely 
those in the NASA-STGSTK code (Reference 3). 


PART I 


Card 

No. 

Input 

Data 

Comment 

Format 

1 

NS 

number of stage 

n 

2 

RRHUB(I) 

hub radius at Ith stage rotor 
inlet. I = 1 ^ NS 
Unit: inch or cm 

F 5.3 

3 

RC(I) 

chord length of Ith stage rotor 

I = 1 ‘v NS 

Unit: inch or cm 

F 5.3 

4 

RBLADE ( I ) 

number of blade for Ith stage 
rotor. I = 1 NS 

F 5.2 

5 

STAGER(I) 

stagger angle for Ith stage rotor 
I s H NS 
Unit: degree 

F 5.2 

6 

SRHUB(I) 

hub radius at Ith stage stator 
inlet. 

I-l^NS, I-NS+1 for IGV 
Unit: inch or cm 

F 5.3 
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Card 

No. 

Input 

Data 

Comment 

Format 

7 

SC(I) 

chord length of Ith stage stator 
1=1^ NS, 1 = NS + 1 for IGV 
Unit: inch or cm 

F 5.3 

8 

SBLADE(I) 

number of blade for Ith stage 
I = 1 'v NS, I = NS + 1 for IGV 

F 5.2 

9 

SIGUMR(I) 

solidity of Ith stage rotor 
I = 1 % NS 

F 5.3 

10 

SI GUMS (I ) 

solidity of Ith stage stator 
I = 1 'v NS, I = NS + 1 for IGV 

F 5.3 

n 

BET 2SS ( I ) 

absolute flow angle at Ith stage 
stator outlet 

I = 1 % NS, I = NS + 1 for IGV 

F 5.2 

12 

FNF 

fraction of design corrected 
rotor speed for a particular 
speed 

F 8.2 

13 

XDIN 

initial water content 
(mass fraction) of small 
droplet 

F 5.3 

13 

ICENT 

index for centrifugal calculation 
of small droplet 
ICENT = 1 when XDIN = 0.0 
otherwise ICENT = 2 

11 

13 

XDDIN 

initial water content 
(mass fraction) of large 
droplet 

F 5.3 

13 

IICNET 

index for centrifugal calculation 
of large droplet 
IICENT = 1 when IDDIN = 0.0 
otherwise IICENT = 2 

11 

14 

TOG 

total temperature of gas phase 
at compressor inlet 
Unit: Rankine or Kelvin 

F 7.2 

14 

TOW 

temperature of droplet at 

compressor inlet 

Unit: Rankine orKelvin 

F 7.2 

(continued) 


28 



Card 

No. 


Input 

Data 


Comment 


Format 



14 PO total pressure at compressor F 7.2 

inlet 

Unit: lbf/ft 2 or N/m 2 

15 DIN initial diameter of small droplet F 6.1 

Unit: pm 

15 DDIN initial diameter of large droplet F 6.1 

Unit: ym 

16 FND rotor corrected speed at design F 7.1 

point 

Unit: RPM 

16 T01D compressor inlet temperature F 7.2 

at design point 

Unit: Rankine or Kelvin 


16 P01D compressor inlet pressure F 7.2 

at design point 
Unit: lbf/ft 2 or N/m 2 


17 

XCH4 

initial methane content 
(mass fraction) 

F 

5.3 

17 

RHUMID 

initial relative humidity 
Unit: per cent 

F 

10.5 

18 

FMWA 

molecular weight of air 

F 

7.3 

18 

FMWV 

molecular weight of steam 

F 

7.3 

18 

FMWC 

molecular weight of methane 

F 

7.3 

79 

PREB 

percent of water droplet 
that rebound after impingement 
on blade surface 

F 

5.1 

19 

DLIMIT 

maximum diameter for small 

droplet 

Unit: ym 

F 

7.1 

20 

STAGES(I) 

stagger angle for Ith stage 

F 

5.2 


stator 

I = 1 ^ NS, I = NS + 1 for IGV 
Unit: degree 
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Card 

No. 

Input 

Data 

Comment 

Format 

21 

GAPR(I) 

gap between Ith stage rotor 
and (I - 1 ) th stage stator 
1 = 1^ NS 
Unit: inch or cm 

F 7.5 

22 

GAPS (I ) 

gap between rotor blade 
and stator blade for 
Ith stage 
I = 1 ^ NS 
Unit: inch or cm 

F 7.5 

23 

RRTIP(I) 

blade tip radius at Ith stage 
rotor inlet 
I = 1 ^ NS 
Unit: inch or cm 

F 6.3 

24 

SRTIP(I) 

blade tip radius at Ith stage 
stator inlet 
I = 1 ^ NS 
Unit: inch or cm 

F 6.3 

25 

I RAD 

index for radius at which calcu- 
lation is carried out 
I RAD = 1: performance at tip 

IRAD - 2: performance at mean 

IRAD = 3. performance at hub 

11 

26 

RT(I) 

rotor inlet radius at which tip 
performance calculation is 
carried out 
I = 1 ^ NS 
Unit: inch or cm 

F 5.3 

27 

RM( I ) 

rotor inlet radius at which 

mean line performance calculation 

is carried out 

I = 1 ^ NS 

Unit: inch or cm 

F 5.3 

28 

RH( I ) 

rotor inlet radius at which hub 
performance calculation is 
carried out 
I = 1 % NS 
Unit: inch or cm 

F 5.3 


30 



Card 

No. 

Input 

Data 

Comment 

29 

ST ( I ) 

stator inlet radius at which 
tip performance calculation is 
carried out 
I = 1 * NS 
Unit: inch or cm 

30 

SM(I) 

stator inlet radius at which 
mean line performance is 
carried out 
I = 1 ^ NS 
Unit: inch or cm 

31 

SH(I) 

stator inlet radius at which 
hub performance calculation 
is carried out 
I = 1 *\* NS 
Unit: inch or cm 

32 

BLOCK(I) 

blockage factor for 
Ith stage rotor 
0<BL0CK( I )<1 

33 

BLOCKS ( I ) 

blockage factor for 
Ith stage stator 
0<BL0CKS( I )<1 

34 

BETIMR(I) 

blade metal angle 
at Ith stage rotor inlet 
Unit: degree 

35 

BET2MR( I ) 

blade metal angle 

at Ith stage rotor outlet 

Unit: degree 

36 

BETIMS(I) 

blade metal angle 

at Ith stage stator inlet 

Unit: degree 

37 

BET2MS(I) 

blade metal angle 

at Ith stage stator outlet 

Unit: degree 

38 

DSMASS 

mass flow rate at design point 

Unit: lb /s or kg/s 

m 

39 

PR12D 

total pressure ratio for the Ith 
stage rotor at design point 


Format 


F 5.3 


F 5.3 


F 5.3 


F 5.3 

F 5.3 

F 5.2 

F 5.2 

F 5.2 

F 5.2 

F 10.6 
F 5.3 
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Card 

Input 





No. 

Data 

Comment 


Format 

40 

PR] 3D 

total pressure ratio for 
stage 

Ith 

F 

5.3 

41 

ETARD(I) 

adiabatic efficiency for 
stage rotor 

Ith 

F 

5.3 

42 

SAREA(I) 

stream tube area 
Ith stage rotor inlet 
Unit: ft 2 or m 2 


F 

10.7 

43 

SAREAS(I) 

stream tube area for 
Ith stage stator inlet 
Unit: ft 2 or m 2 


F 

10.7 

44 

XBLEED(I) 

amount of bleed at Ith stage 
outlet 

F 

5.2 


PART II 


Card 

No. 

Input 

Data 

Comment 

Format 

45 

TITLE 

title card on which any 
alphabetical data can be used 

1 2A6 

46 

STAGEN 

the number of stages 

F 10.0 

46 

SPEEDN 

always 1 . 0 

F 10.0 

46 

CHAPTS 

number of points used to 
describe the stage characteristic 

F 10.0 

46 

PO 

compressor inlet total pressure 
Unit: lb^/ft 2 

F 10.0 

46 

TO 

compressor inlet total temperature 
Unit: Rankine 

F 10.0 

46 

DESRPM 

design rotative speed 
Unit: RPM 

F 10.0 

46 

DESFLO 

design flow rate 

Unit: lb /sec 

m 

F 10.0 
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\h 


li; 

i 


Card 

Input 


No. 

Data 

Comment 

47 

WTMOLA 

molecular weight of air 

47 

WTM0LM 

molecular weight of methane 

47 

WTMOLS 

molecular weight of steam 

47 

XAR 

mass fraction of dry air 

47 

XMET 

mass fraction of methane 

47 

XSTM 

mass fraction of steam 

48 

SPDPSI 

index to alter pressure coeffi- 
cient for off-design speed. 
Pressure coefficient is altered 
for off-design speed if 
SPDPSI =1.0; otherwise not. 

48 

SPDPHI 

index to alter flow coefficient 
for off-design speed. 

Flow coefficient is altered for 

off-design speed if 

SPDPHI = 1.0; otherwise not. 

48 

DRDEVG 

index to alter rotor deviation 
angle for blade reset. 

Rotor deviation angle is altered 

for blade reset if 

DRDEVG = 1.0; otherwise not. 

48 

DRDEVN 

index to alter rotor deviation 
angle for off-design speed. 

Rotor deviation angle is altered 
for off-design speed if 
DRDEVN = 1.0; otherwise not. 

48 

DRDEVP 

index to alter rotor deviation 
angle for off-design flow 
coefficient. 

Rotor deviation is altered for 
off-design flow coefficient if 
DRDEVP = 1.0; otherwise not. 

48 

UNITS 

always 0.0 

49 

CPCO(I) 

coefficients for polynomial of 


specific heat at constant 
pressure for air 


Format 

F 10.0 
F 10.0 
F 10.0 
F 10.0 
F 10.0 
F 10.0 
F 10.0 

F 10.0 


F 10.0 
F 10.0 


F 10.0 


F 10.0 
F 10.0 
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Card 

No. 

Input 

Data 

Comment 

Format 

50 

CPCM(I) 

coefficients for polynomial of 
specific heat at constant 
pressure for methane 

F 

10.0 

51 

CPCS(I) 

coefficients for polynomial of 
specific heat at constant 
pressure for steam 

F 

10.0 

52 

RT2 C I ) 

rotor inlet tip radius at Ith 
stage 

Unit: inch 

F 

10.0 

53 

RH2( I ) 

rotor inlet hub radius at Ith 
stage 

Unit: inch 

F 

10.0 

54 

RT3(I) 

rotor outlet tip radius at Ith 
stage 

Unit: inch 

F 

10.0 

55 

RH3(I) 

rotor outlet hub radius at Ith 
stage 

Unit: inch 

F 

10.0 

56 

BET2M( I ) 

rotor inlet absolute flow angle 
at mean line radius at Ith stage 
Unit: degree 

F 

10.0 

57 

CB2M( I ) 

change in rotor inlet absolute 
flow angle at mean line radius 
at Ith stage 
Unit: degree 

F 

10.0 

58 

CB2MR(I) 

change in rotor inlet relative 
flow angle at mean line radius 
at Ith stage 
Unit: degree 

F 

10.0 

59 

CB3MR( I ) 

change in rotor outlet relative 
flow angle at mean line radius 
at Ith stage 
Unit: degree 

F 

10.0 

60 

RK2M(I) 

rotor inlet blade metal angle 
at mean line radius at Ith stage 
Unit: degree 

F 

10.0 
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Card 

Input 


No. 

Data 

Comment 

61 

RK3M( I ) 

rotor outlet blade metal angle 
at mean line radius at Ith stage 
Unit: degree 

62 

RSOLM(I) 

rotor blade row solidity at Ith 
stage 

63 

SK2M( I ) 

stator inlet blade metal angle 
at mean line radius at Ith stage 
Unit: degree 

64 

PR(I) 

stage pressure ratio at design 
point for Ith stage 

65 

ETAINP(I) 

stage adiabatic efficiency at 
design point for Ith stage 

66 

PHIINP(I) 

flow coefficient at design stage 
for Ith stage 

67 

PCTSPD 

value of rotative speed expressed 
as a decimal fraction of design 
speed 

68 

ETARAT 

ratio of adiabatic efficiency at 
design speed to adiabatic 
efficiency at speed corresponding 
to PCTSPD 

69 

BLEED 

amount of bleed 

Unit: lb /sec 

m 

70 

PHIDES 

stage flow coefficient at design 
speed 

71 

PSIDES 

stage pressure coefficient at 
design speed, when input PR is 
not zero, then PSIDES must be zero 

72 

ETADES 

stage adiabatic efficiency at 
design speed, when input ETAINP is 
not zero, then ETADES must be zero 

73 

FAI(K) 

initial flow coefficient 
K = 1 ^ CHAPTS 


one value per one card 


Format 
F 10.0 

F 10.0 
F 10.0 

F 10.0 
F 10.0 
F 10.0 
F 10.0 

F 10.0 

F 10.0 
F 10.0 
F 10.0 

F 10.0 

F 7.5 
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CHAPTER V 


OUTPUT 

The output generated utilizing the NASA-WISGSK code is described 
here. The output consists of five parts as follows: 

(1) output of the input data; 

(2) output of design point performance; 

(3) output of stage characteristic; 

(4) output of stage performance; and 

(5) output of overall performance. 

These five parts are described in the following. 

5.1 Output of Inputed Data 

All of the data inputed can be printed out at the beginning of 
output. 

5.2 Output of Design Point Performance 

5.2.1 Compressor Inlet (Design Point Performance) 

At the compressor inlet, the following properties can be printed 
out for the design point performance: 

(1) total temperature at compressor inlet: (R) or (K) 

(2) total pressure at compressor inlet: (lbf/ft 2 ) or (N/m 2 ) 

(3) static temperature at compressor inlet: (R) or (K) 

(4) static pressure at compressor inlet: (lbf/ft 2 ) or (N/m 2 ) 

(5) static density at compressor inlet: (lbm/ft 3 ) or (kg/m 3 ) 

(6) acoustic speed at compressor inlet: (ft/s) or (m/s) 

(7) axial velocity at compressor inlet: (ft/s) or (m/s) 
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(8) Mach number at compressor inlet 

(9) stream tube area at compressor inlet: (ft 2 ) or (m 2 ) 

(10) flow coefficient at compressor inlet 

5.2.2 Stage Performa nce (Design Point Performance) 

At the end of each stage, the following properties can be printed 
out for the design point performance: 

(1) total temperature: (R) or (K) 

(2) total pressure: (lbf/ft 2 ) or (N/m 2 ) 

(3) static temperature: (R) or (K) 

(4) static pressure: (lbf/ft 2 ) or (N/m 2 ) 

(5) static density: (lbm/ft 3 ) or (kg/m 3 ) 

(6) axial velocity: (ft/s) or (m/s) 

(7) absolute velocity: (ft/s) or (m/s) 

(8) relative velocity: (ft/s) or (m/s) 

(9) tangential component of absolute velocity: (ft/s) or (m/s) 

(10) tangential component of relative velocity: (ft/s) or (m/s) 

(11) rotor wheel speed: (ft/s) or (m/s) 

(12) absolute Mach number 

(13) relative Mach number 

(14) total temperature based on relative Mach number: (R) or (K) 

(15) total pressure based on relative Mach number: (lbf/ft 2 ) or 

(N/m 2 ) 

(16) absolute flow angle: (degree) 

(17) relative flow angle: (degree) 

(18) stream tube area: (ft 2 ) or (m 2 ) 

(19) radius at which calculation is carried out: (ft) or (m) 

(20) flow coefficient 

(21) stage total pressure ratio 

(22) stage adiabatic efficiency 

(23) rotor total pressure ratio 

(24) rotor adiabatic efficiency 

(25) stage total temperature ratio 
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5.2.3 Overall Performance (Design Point Perfo rmance) 

After all of stage performance is printed out, the following 
properties can be printed out: 

(1) compressor inlet total temperature: (R) or (K) 

(2) compressor inlet total pressure: (lbf/ft 2 ) or (N/m 2 ) 

(3) corrected mass flow rate: (Ibm/s) or (kg/s) 

(4) overall total pressure ratio 

(5) overall total temperature ratio 

(6) overall adiabatic efficiency 

(7) overall temperature rise: (F) or (c) 

(8) relative flow angle at rotor inlet: BETISR(I) (degree) 

(9) relative flow angle at rotor outlet: BET2SR(I) (degree) 

(10) incidence for rotor: AINCSR(I) (degree) 

(11) deviation for rotor: ADEVSR (degree) 

(12) absolute flow angle for stator inlet: BETISS(I) (degree) 

(13) absolute flow angle for stator outlet: BET2SS(I) (degree) 

(14) incidence for stator: AINCSS ( I ) (degree) 

(15) deviation for stator: ADEVSS(I) (degree) 

(16) stage inlet temperature: TD(I) (R) or (K) 

(17) total pressure loss coefficient for stator: OMEGS(I) 

(18) total pressure loss coefficient for rotor: OMEGR(I) 

5.3 Output of Stage Characteristics 

The inputed and/or computed stage characteristic can be printed 
out. The flow coefficient, pressure coefficient and adiabatic effi- 
ciency for each stage are printed out. This part of output is the same 
as one in NASA-SGSTK code (Reference 3). 

5.4 Output of Stage Performance 

The performance of a stage is calculated for given initial and 
operating conditions with respect to the gaseous phase and the water 
droplets. At the exit of a blade row, the four major processes 
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associated with two phase flow, namely (a) droplet impingement process; 
(b) centrifugal action on droplets; (c) heat and mass transfer processes 
between the two phases; and (d) droplet size adjustment are taken 
into account. When the stage performance parameters are corrected for 
the afore-mentioned four processes, then one obtains the outlet condi- 
tions from a stage. The output of stage performance consist of two 
parts. First the following properties can be printed out before the 
afore-mentioned four processes are taken into account: 

(1) stage total pressure ratio 

(2) stage total temperature ratio 

(3) stage adiabatic efficiency 

(4) stage flow coefficient 

(5) axial velocity: (ft/sec) or (m/sec) 

(6) rotor speed: (ft/sec) or (m/sec) 

(7) total pressure: (lbf/ft 2 ) or (N/m 2 ) 

(8) static pressure: (lbf/ft 2 ) or (N/m z ) 

(9) total temperature of gas phase: (R) or (K) 

(10) static temperature of gas phase: (R) or (K) 

(11) static density of gas phase: (lbm/ft 3 ) or (kg/m 3 ) 

(12) static density of mixture: (lbm/ft 3 ) or (kg/m 3 ) 

(13) axial velocity: (ft/s) or (m/s) 

(14) absolute velocity: (ft/s) or (m/s) 

(15) relative velocity: (ft/s) or (m/s) 

(16) blade wheel speed: (ft/s) or (m/s) 

(17) tangential component of absolute velocity: (ft/s) or (m/s) 

(18) tangential component of relative velocity: (ft/s) or (m/s) 

(19) acoustic speed: (ft/sec) or (m/s) 

(20) absolute Mach number 

(21) relative Mach number 

(22) flow coefficient 

(23) stream tube area (ft 2 ) or (m 2 ) 

(24) absolute flow angle: (degree) 

(25) relative flow angle: (degree) 

(26) incidence: (degree) 

(27) deviation: (degree) 
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After the stage parameters are corrected for the afore-mentioned 
four processes, the following second part of output of stage perform- 
ance can be printed out: 

(1) stage total pressure ratio 

(2) stage total temperature ratio 

(3) stage adiabatic efficiency 

(4) water vapor content: XV 

(5) water content of small droplet: XW 

(6) water content of large droplet: XWW 

(7) total water content: XWT 

(8) mass fraction of dry air: XAIR 

(9) mass fraction of methane: XMETAN 

(10) mass fraction of gaseous phase: XGAS 

(11) mass flow rate of small droplet: WMASS (Ibm/s) or (Kg/S) 

(12) mass flow rate of large droplet: WWMASS (lbm/s) or (Kg/S) 

(13) total mass flow rate of droplet: WTMASS (lbm/s) or (Kg/S) 

(14) mass flow rate of dry air: AMASS (lbm/s) or (Kg/S) 

(15) mass flow rate of methane: CHMASS (lbm/s) or (Kg/S) 

(16) mass flow rate of water vapor: VMASS (lbm/s) or (Kg/S) 

(17) mass flow rate of gaseous phase: GMASS (lbm/s) or (Kg/S) 

(18) mass flow rate of mixture: TMASS (lbm/s) or (Kg/S) 

(19) specific humidity: WS 

(20) density of air: RHOA (lbm/ft 3 ) or (Kg/m 3 ) 

(21) density of mixture: RHOM (lbm/ft 3 ) or (Kg/m 3 ) 

(22) density of gaseous phase: RHOG (lbm/ft 3 ) or (Kg/m 3 ) 

(23) temperature of gaseous phase: TG (R) or (K) 

(24) temperature of small droplet: TW (R) or (K) 

(25) temperature of large droplet: TWW (R) or (K) 

(26) pressure: P (lbf/ft 2 ) or (N/m 2 ) 

(27) boiling point: TB (R) or (K) 

(28) dew point: TDEW (R) or (K) 
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5.5 Output of Overall Performance 


At the end of compressor, the overall performance can be printed 
out. The properties to be printed out are as follows: 

(1) initial flow coefficient 

(2) corrected speed of compressor and fraction of design cor- 
rected speed 

(3) initial water content of small droplet 

(4) initial water content of large droplet 

(5) initial total water content 

(6) initial relative humidity 

(7) initial methane content 

(8) compressor inlet total temperature: (R) or (K) 

(9) compressor inlet total pressure: (lbf/ft 2 ) or (N/m 2 ) 

(10) corrected mass flow rate of mixture: (Ibm/s) or (Kg/S) 

(11) corrected mass flow rate of gaseous phase: (Ibm/s) or (Kg/S) 

(12) overall total pressure ratio 

(13) overall total temperature ratio 

(14) overall adiabatic efficiency 

(15) overall temperature rise of gaseous phase: (F) or (C) 
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CHAPTER VI 


TEST CASE AND DISCUSSION 

The performance calculation procedure is illustrated in the case 
of the Test-Compressor (referred to in Section 1.2) utilizing the 
correlations of performance parameters presented in Section 2.2 and 
the procedure for performance calculation presented in Sections 2.3 and 

2.4. 

The detailed printout of the input and output of the NASA-WISGSK 
Code is presented in Appendix 4 for the following two cases at a 
chosen value of inlet flow coefficient. 

1) Test Case No. 1 : Operation with air flow at 100 percent 

of the design speed at the meanline section of the 
compressor. 

2) Test Case No. 2 : Operation with air-water mixture con- 

taining large droplets (with a mass fraction of 0.040 

of water) at 100 percent of design speed at the meanline 
section of the compressor. 

Utilizing the same procedure, the performance of the Test Compressor 
has been determined at a number of operating conditions given in Table 
2. The results of performance calculations have been presented in the 
following figures. 

Figure 8(a): Overall stagnation pressure ratio as a 

function of gas phase corrected mass flow rate 
at tip section. 

Figure 8(b): Overall stagnation temperature ratio as a 

function of gas phase corrected mass flow rate 
at tip section. 
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Figure 8(c): 


Figure 9(a): 


Figure 9(b): 


Figure 9(c): 


Figure 10(a): 


Figure 10(b): 


Figure 10(c): 


Overall adiabatic efficiency as a function 
of gas phase corrected mass flow rate at 
tip section. 

Overall stagnation pressure ratio as a function 
of gas phase corrected mass flow rate at 
mean section. 

Overall stagnation temperature ratio as a 
function of gas phase corrected mass flow rate 
at mean section. 

Overall adiabatic efficiency as a function of 
gas phase corrected mass flow rate at mean 
section. 

Overall stagnation pressure ratio as a function 
of gas phase corrected mass flow rate at hub 
section. 

Overall stagnation temperature ratio as a 
function of gas phase corrected mass flow rate 
at hub section. 

Overall adiabatic efficiency as a function of 
gas phase corrected mass flow rate at hub 
section. 
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6.1 Discussion 


The NASA-WISGSK Code provides a means of calculating the overall 
performance of an axial -flow compressor with water ingestion at 
selected spanwise sections utilizing a one-dimensional calculation 
procedure. The principal inputs to the Code are the following at a 
particular spanwise section. 

(i) The design point details of the compressor; and 
(ii) The stage characteristics at a selected speed of 

operation with air flow and air-water mixture flow, the 
latter over the desired range of water mass fraction 
in the mixture. 

The stage characteristics are then approximated at other values of 
operating speed and at other spanwise sections. 

During the calculations of performance for the cases given in 
Table 2, the stage characteristics have been assumed for operation at 
90 percent design speed and at the meanline section of the compressor. 
It can be seen from Figures 11(a) and 11(b) that the meanline predicted 
performance for the case of operation with air flow at 90 and 80 
percent design speed values corresponds very nearly to the experimental 
data (Reference 6) obtained at that spanwise section and speed. At 
100 percent design speed, it can be observed from the same figure that 
some difference arises between predictions and experimental data, 
although the general trend of performance is obtained qualitatively 
correctly. 

By means of a trial and error procedure for adaptation of stage 
characteristics for each of the stages in the compressor, it is 
possible to obtain a prediction that is close to experimental data to 
any desired degree of agreement at any speed and at any section of the 
compressor. However, this involves considerable empiricism in the 
adaptation of stage characteristics for different operating conditions 
at different spanwise sections. 
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TABLE 2 


Operating Conditions of Test Compressor 
(Utilized in the Illustration of 
P e rfo rma nce Calculation Procedure) 


Parameter 

Range of Values 

1) Compressor speed 

80, 90 and 100% design speed 

2) Mass fraction of water 

0.000, 0.030, 0.040, 0.080 

in the mixture 

and 0.150 

3) Mixture mass flow 

At least five values at each 

rates 

speed 
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During water ingestion,* the basic performance of a stage is 
again obtained in the NASA-WISGSK Code utilizing the stage character- 
istics estimated for one selected speed and one spanwise section at 
all other speeds and spanwise sections. Thus only the general trends 
in performance changes can be established. 

A further limitation of the NASA-WISGSK Code procedure is that 
the ranges of mixture mass flow and water mass fraction over which 
predictions can be obtained become restricted to different extents 
at different speeds and at different spanwise sections. Thus, in the 
present case, the stage characteristics with water ingestion are 
estimated first at 90 percent design speed and at the tip section. 

They are then adapted for use at other speeds and spanwise sections. 

It is then found that depending upon the mass fraction of water at the 
entry section of the compressor the prediction of performance at the 
tip section for high water mass fraction values at a higher operating 
speed (say, 100 percent design speed) may only be carried out for a 
small range of mixture mass flows, considerably less than, for example, 
at the mean and hub sections of the compressor. 

It may be pointed out that no general conclusions may be drawn 
at this stage of utilization of the Code regarding its applicability to 
various compressors of different design and operating conditions. At 
the same time, it is clear that (a) the trend of performance changes 
can be established utilizing the Code and (b) the limitations in 
applicability arise in regard to the ranges of (i) speed, (ii) mixture 
mass flow and (iii) water mass fraction. 
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Figure 1 : 


Droplet Size Variations in Rain and Mist 



SATURATION SPECIFIC HUMIDITY 


Figure 2 



Variation of Saturation Water Vapor Content 
in Ambient Air as a Function of Altitude 
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Figure 4(a): Deviation Constant vs Diffusion (Stage = 1) 
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Figure 4(b): Deviation Constant vs Diffusion (Stage = 2) 
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Figure 5(b): Pressure-Ri se Coefficient vs Flow 
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Figure 5(c): Pressure-Ri se Coefficient vs 



Flow Coefficient (Stage = 3) 
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Figure 6(a): Efficiency vs Flow Coefficient (Stage - 1) 
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Figure 6(b): Efficiency vs Flow Coefficient (Stage = 2) 
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Figure 6(c): Efficiency vs Flow Coefficient (Stage = 3) 
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Figure 6(d): Efficiency vs Flow Coefficient (Stage = 4-6) 
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Figure 7: Modification of Reference Efficiency Curve 
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Figure 8(c): Predicted Overall Adiabatic Efficiency as a 

Function of Gas Phase Corrected Mass Flow at 
Tip Section 
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Figure 9(a): Predicted Overall Stagnation Pressure Ratio 

as a Function of Gas Phase Corrected Mass 
Flow Rate at Mean Section 
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Figure 9(b); Predicted Overall Stagnation Temperature 
Ratio as a Function of Gas Phase Corrected 
Mass Flow Rate at Mean Section 


OVERALL ADIABATIC EFFICIENCY 



Figure 9(c): Predicted Overall Adiabatic Efficiency as a 

Function of Gas Phase Corrected Mass Flow 
Rate at Mean Section 
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Figure 10(c): Predicted Overall Adiabatic Efficiency as a 

Function of Gas Phase Corrected Mass Flow 
Rate at Hub Section 
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Figure 11(a): Overall Stagnation Pressure Ratio vs Gas Phase 

Corrected Mass Flow Rate (N//e = 80, 90, 100%, 
and Test Data) 
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Figure 11(b): Overall Stagnation Temperature Ratio vs Gas 

Phase Corrected Mass Flow Rate (N//fT = 80, 90, 
100% and Test Data ) 
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APPENDIX 1 


DETAILS OF COMPRESSOR USED FOR DEMONSTRATION O F COD E 

The compressor utilized for demonstrating the application of the NASA- 
WISGSK Code is the so-called Test Compressor consisting of the six axial - 
flow stages of the ALLISON T63-A-5 engine compressor. The Test Compressor 
has been designed and built such that various stages of the compressor can 
be assembled and tested. Thus the first two, the intermediate two or the 
last two stages can be tested if desired, as well as the unit with all of 
the six stages. Only the 6-stage unit has been used in the current tests. 

The first stage of the Test Compressor is preceded by an inlet guide 
vane row which imparts swirl to the inlet air. The relative Mach number of 
the incoming air at the rotor inlet is thereby reduced as far as permissible 
without causing inlet blockage. The axial componet features unshrouded 
rotors, cantilever stators, and double circular arc blading in all stages. 

The values of T-63 compressor design velocity diagram are presented in 
Table A. 1.1. Table A. 1.3 and A. 1.4 present the hardware geometry and aero- 
dynamic design data for rotor and stator, respecti vely . 

Figure A. 1.1, to Figure A. 1.6 show the stage performance characteristics 
of Test Compressor supplied by the manufacturer. In each of the figures, the 
equivalent pressure ratio, ip , equivalent temperature ratio, x , and stage 
adiabatic efficiency, q , are presented in terms of flow coefficient, <p . 

The definitions of these parameters are as follows: 

(i) flow coefficient: <j> 

* =V u tip 

(ii) equivalent pressure ratio: ip 



' u 2 . 

Y“1 


ip = 


(£«-) T - 1 
r o 1 

+ 1 


l 




75 



(iii) equivalent temperature ratio: 


x = (>j: . (fe 


(iv) stage adiabatic efficiency: 


n = T oi (f'f)V - 1 si 


1 Hi 

= (V Y "I )/t 
1 o 


where AT 0 is stage total temperature rise, P 0 total pressure, T 0 total tem- 
peratures, V 2 axial velocity, U^..- blade tip wheel speed, y specific heat 
ratio. The subscripts 1 and 2 mean inlet and outlet, respectively, and D 
design value. 

Figure A. 1.7 shows overall performance characteristics of Test Compressor 
supplied by the manufacturer. The performance parameters are the following: 

(1) Corrected mass flow rate = 

where m = mass flow rate 

Poi = compressor inlet pressure 

To1 = compressor inlet temperature 

0 = Tol/T ref 

T ref = 58.7°F (15.2°C) 

P ref = 14.7 psi (1.0132 x 10 5 N/m 2 ) 

(2) Corrected speed = — ^ 

/e 

where N - rotor speed (RPM) 

(3) Overall total pressure ratio = P 02 /P 01 

where P 0 i= compressor inlet total pressure 

P 0 2 = compressor outlet total pressure r -j 

(4) Overall adibatic efficiency = n = ■tt L (f^) Y " ^ 

A| 0 r 0 1 


where T 0 i= compressor inlet total temperature 
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AT 0 
Po 2/P 01 
y 


= compressor total temperature rise 
= overall total pressure ratio 
= ratio of specific heats 
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TABLE A. 1.1. 


TEST COMPRESSOR DESIGN VELOCITY DIAGRAM VALUES 


Stage 

1 

2 

3 

4 

5 

6 

R 

2.161 

2.161 

2.161 

2.161 

2.161 

2.161 

U 

963.5 

963.5 

963.5 

963.5 

963.5 

963.5 

Vzl 

508.4 

544.1 

547.0 

554.9 

554.1 

543.7 

v ei 

236.5 

310.0 

365.1 

349.3 

338.8 

333.8 

Wei 

727.0 

653.5 

598.4 

614.2 

624.7 

629.9 Rotor Inlet 

“i 

25.0 

29.7 

33.7 

32.2 

31.6 

31.5 


54.9 

50.3 

47.6 

47.9 

48.5 

49.3 

M labs 

0.513 

0.563 

0.578 

0.560 

0.538 

0.512 

M 1rel 

0.812 

0.765 

0.713 

0.707 

0.692 

0.658 

V z2 

507.0 

554.9 

551.0 

554.5 

548.9 

544.6 

V 

405.2 

501.3 

598.8 

614.6 

625.1 

630.3 

w e2 

558.3 

462.2 

364.7 

348.9 

338.4 

333.2 Rotor Outlet 

a 2 

38.6 

42.1 

47.4 

47.9 

48.7 

49.2 

6 2 

47.8 

39.8 

33.6 

32.2 

31.7 

31 .5 

M 2abs 

0.588 

0.665 

0.706 

0.698 

0.680 

0.660 

M 2rel 

0.683 

0.643 

0.574 

0.552 

0.528 

0.506 

Note: 

: Symbols 

for Tab! e A. 1 . 

1 are provided in 

Table A. 1.2. 
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TABLE A.l .2 


SYMBOLS FOR TEST COMPRESSOR DESIGN VELOCITY DIAGRAM VALUES 


R Radius, inches 

U Rotor speed at R, ft/sec. 

V z Air axial velocity, ft/sec. 

V g Air absolute tangential velocity, ft/sec. 

Wg Air relative tangential velocity, ft/sec. 

a Air absolute flow angle, degrees 

B Air relative flow angle, degrees 

M Mach number 

Subscript 

1 rotor inlet 

2 rotor outlet 

abs absolute 

rel relative 
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TABLE A.l .3 


TEST COMPRESSOR DESIGN DATA (ROTOR) 


Stage 



1 

2 

3 

4 

5 

6 

Radius 


R 

2.161 

2.161 

2.161 

2.161 

2.161 

2.161 

Chamber Angle 


0 

22.6 

15.9 

18.0 

19.7 

20.9 

22.0 

Stagger 


y 

46.1 

42.3 

36.5 

36.1 

36.0 

36.3 

Incidence 


i 

0.0 

2.0 

2.0 

2.0 

2.0 

2.0 

Deviation 


6 

7.3 

5.4 

6.0 

6.0 

6.1 

6.2 

Chord 


c 

0.605 

0.554 

0.534 

0.510 

0.483 

0.456 

Sol idity 


a 

0.713 

0.815 

0.787 

0.941 

0.997 

1.075 

Max. Thickness 


t 

0.036 

0.039 

0.037 

0.036 

0.034 

0.032 

Thickness-Chord 

Ratio t/c 

0.060 

0.070 

0.070 

0.070 

0.070 

0.070 

No. of Blades 


n 

16 

20 

20 

25 

28 

32 

Note: R, c, t 

i n 

(inches) and 0, y, 6, i 

TABLE A. 1.4 
TEST COMPRESSOR DESIGN 

in (degrees) 
DATA (STRAT0R) 


Stage 


IGV 

1 

2 

3 

4 

5 

6 

Radius 

R 

2.161 

2.161 

2.161 

2.161 

2.161 

2.161 

2.161 

Camber Angle 

e 

31.7 

22.4 

25.6 

26.2 

24.4 

24.7 

17.3 

Stagger 

y 

-15.9 

31.3 

36.3 

36.6 

36.8 

37.4 

42.6 

Incidence 

i 

0.0 

-2.0 

-2.0 

-2.0 

-2.0 

-2.0 

-2.0 

Deviation 

6 

6.7 

9.6 

5.2 

8.0 

7.9 

7.5 

5.6 

Chord 

c 

1.395 

0.442 

0.412 

0.412 

0.412 

0.412 

0.412 

Sol idity 

a 

0.719 

0.456 

0.789 

0.850 

0.972 

1.093 

0.910 

Max. Thickness 
Thickness-Chord 

t 

0.170 

0.040 

0.025 

0.025 

0.025 

0.025 

0.025 

Ratio 

t/c 

0.09 

0.06 

0.06 

0.06 

0.06 

0.06 

No. of Blades 

n 

7 

14 

26 

28 

32 

36 

30 


Note: R, c, t in (inches) and 0, y, 6, i in (degrees) 
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V 




0 . 8 - 
0 . 7 - 
0 . 6 - 
0 . 5 - 
0 . 4 - 
0 . 3 - 
0 . 12 - 
0 . 10 - 
0 . 08 - 
0 . 06 - 
0 . 04 - 
0 . 02 - 
1 . 20 - 
1 . 18 - 
1 . 16 - 
1 . 14 - 
1 . 12 - 
1.10 - 
1 . 08 - 
1 . 06 - 


1 

0.3 





i i l 

0.4 0.5 0.6 

Flow Coefficient < p 


Figure A. 1.1 Stage Characteristics of Test Compressor (1st Stage) 
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Figure A. 1.4 Stage Characteristics of Test Compressor (4th Stage) 


84 





0.4 0.5 0.6 

Flow Coefficient <fc 


Figure A. 1.6 Stage Characteristics of Test Compressor (6th Stage) 
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Figure A. 1.7 Overall Performance of Test Compressor 



APPENDIX 2 


DETAILED DESCRIPTION OF SUBROUTINES 
AND EXTERNAL FUNCTIONS 


Each of the subroutines and external functions is presented as 
follows: (1) Description, (2) Input variables, (3) Output variables, 

and (4) Usage. 

SUBROUTINE WICSPD 

(1) Description: 

The subroutine WICSPD is used for the calculation of design 
point performance. The properties obtained in this subroutine 
become reference properties for calculation of off-design 
performance. 

(2) Input Variables: 

AMASS mass flow rate 

ISTAGE stage at which performance calculation is 

carried out 

(3) Output Variables: 
none 

(4) Usage: 

CALL WICSPD (AMASS, ISTAGE) 

SUBROUTINE WICCEN 

(1) Description: 

The subroutine WICCEN is used for the calculation of spanwise 
replacement of droplets due to centrifugal action. 

Three forces act on a droplet moving through a fluid: 

(1) the external force consisting of gravitational and 
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centrifugal forces; (2) the buoyancy force, which acts 
parallel to the external force, but in the opposite direc- 
tion; and (3) the drag force, which appears whenever there is 
relative motion between the droplet and the fluid, and acts 
parallel to the direction of motion but in the opposite 
direction. In the present case, the direction of motion of 
a droplet relative to the fluid is not parallel to the direc- 
tion of the external and buoyant forces, and therefore the 
drag force makes an angle with the other two forces. How- 
ever, under the one-dimensional approximation, the lines of 
action of all forces acting on the droplet are co-1 inear and 
therefore the forces may be added in obtaining a balance of 
momentum, as follows: 

g dt F e " F b " F D 

where F , and F^ are the external , buoyance and drag 
forces respectively. 

The external force can be expressed as the product of mass 
and acceleration, a g , of the droplet due to this force, and 
therefore 


In the present case, because of the large rotor speeds, the 
centrifugal acceleration is far larger than the gravitational 
acceleration. Thus 

a e = r “ 2 

where r is the radius and w, the angular velocity. The 
acceleration can also be written as follows: 

a e = V r 

where V 0 is the circumferential velocity of the droplet. For 
droplets passing through a rotor blade passage, the 
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circumferential component of the relative velocity, W Q , should 
be used in place of V Q . When there is a large change in 
whirl velocity between the inlet and outlet of a blade row, 
a mean value of velocity may be more applicable. 

The buoyancy force is, by Archimedes' Principle, the product 

of the mass of the fluid displaced by the droplet and the 

acceleration from the external force. The mass of fluid 

displaced is (m/p w )p g , where p w is the density of water and 

p is the density of the surrounding fluid. The buoyancy 
9 

force is then given 


F, = mp a /p, q . 
b K g e w 3 c 

The drag force is expressed by the relation. 



P ^A 


D2g 


P 


where C g is the drag coefficient and A^ is the projected 
area of the droplet measured in a plane perpendicular to the 
direction of motion of the droplet. The drag coefficient 
C g can be expressed in a general form as follows: 

C D = bi/Re 11 

where Re is the Reynolds number based on relative velocity 
between gas and droplet. The constants bi and n are as 
follows : 

bi = 24.0, n = 1.0 when Re < 1.9 

bi = 18.5, n = 0.6 when 1.9 < Re < 500 

bi= 0.44, n = 0.0 when 500 < Re < 200,000. 

The equation of droplet motion then becomes the following: 

= A/r - Bu 2 ~ n 
where 

A = ( Vave * (1 ' p g /p J’ 
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B = 3u n bip g 1-n /4p w D 1+n , and 

D being the average droplet diameter. Over a small time 
interval, the equation of motion can be written as follows: 

Au = (A/r - Bu z_n )At. 

This equation can be used to determine the radial location of 
a droplet in a stage as follows: 

(i) Select the initial values for u 2 and r x . 

(ii) Calculate the Reynolds number to determine the values 
of bi and n. 

(iii) Calculate A and B. 

(iv) Calculate the change of u during time interval At. 

(v) Calculate the new velocity u 2 . 

u 2 = Ui + Au 

(vi) Calculate the change in location of droplet in terms 

of Ar. 

Ar = (ui + u 2 )/2.0 ‘ At 

(vii) Calculate the new radial location. 


r 2 = ri + Ar 

(viii) Repeat the calculation for new value of u 2 and r 2 and 
progressively extend the calculation. 


The time interval should be sufficiently small in order to 
obtain reasonable accuracy. As stated in Section 2.1.3 in 
Chapter II of Reference 4, the length between the leading 
and trailing edges of a blade is divided into ten steps. The 
time interval At is then given by the relation, namely 


At 


chord 1 
V x 10 


where V is the velocity of mixture in the blade passage. 


(2) Input Variables: 

RZERO droplet spanwise location at rotor inlet 

UZERO droplet spanwise velocity at rotor inlet 
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DD 

droplet diameter 


VZ 

axial velocity 


DELZZ 

axial length of a stage 


ALFAAV 

average flow angle 


FN 

rotor blade rotational speed 


IRS 

index for rotor or stator 


RHOGAS 

densi ty 


RHUB 

radius at hub 


XG 

mass fraction of gas phase 


XA 

mass fraction of dry air 


XVV 

mass fraction of vapor 


XCH4 

mass fraction of methane 


RTIPIN 

radius at blade tip 

(3) 

Output 

Variables : 


R2 

droplet spanwise location blade outlet 


U2 

droplet spanwise velocity at blade outlet 


ITIP 

index for droplet spanwise location 


VZTIME 

time in which flow pass through a stage 

(4) 

Usage: 



CALL WICCEN (RZERO, VZERO, DD, VZ, DELZZ, ALFAAV, FN, IRS, 

RHOGAS, RHUB, R2, U2, ITIP, VZTIME, XG, XA, XVV, 
XCH4 , RTIPIN) 


SUBROUTINE WICDHS 

(1) Description: 

The subroutine WICDMS is used for the calculation of amount 
of small droplets which is centrifuged. 

(2) Input Variables: 

IPRINT index for printout 

I RAD index for spanwise location 

AMASW1 mass flow rate of water at rotor inlet 

AMASWT mass flow rate of droplet 

AMASW mass flow rate of droplet 

R1 droplet spanwise location rotor inlet 


92 



R2 droplet spanwise location at rotor outlet 

STAREA streamtube area 

RSTAVE radius of streamtube at its center 

RTIP radius at blade tip 

(3) Output Variables: 

DMIN amount of water that is centrifuged and enters 

into a streamtube 

DMOUT amount of water that is centrifuged and leaves 

from a streamtube 

AMASW2 mass fraction of water at rotor outlet after 

correction for centrifugal action 
DELMAS net amount of water that is centrifuged 

(4) Usage: 

CALL WICDMS (IPRINT, I RAD, AMASW1 , AMASWT , AMASW , R1 , R2, 

STAREA, RSTAVE, RTIP, DMIN , DMOUT, AMASW 2 , DELMAS) 

SUBROUTINE WICDML 

(1) Description: 

The subroutine WICDML is used for the calculation of amount 
of large droplets which is centrifuged. 

(2) Input Variables: 

IPRINT index for printout 

IRAD index for spanwise location 

AMASW1 mass flow rate of water at rotor inlet 

AMASWT mass flow rate of droplet 

AMASW mass flow rate of droplet 

R1 droplet spanwise location rotor inlet 

R2 droplet spanwise location at rotor outlet 

STAREA streamtube area 

RSTAVE radius of streamtube at its center 

RTIP radius at blade tip 
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(3) Output Variables: 

DMIN amount of water that is centrifuged and enters 

into a streamtube 

DMOUT amount of water that is centrifuged and leaves 

from a streamtube 

AMASW2 mass fraction of water at rotor outlet after 

correction for centrifugal action 

DELMAS net amount of water that is centrifuged 

(4) Usage: 

CALL WICDML (IPRINT, I RAD, AMASW1 , AMASWT, AMASW, R1 , R2, 

STAREA, RSTAVE, RTIP, DMIN, DMOUT, AMASW2 , DELMAS) 


SUBROUTINE WICMAC 

(1) Description: 

Subroutine WICMAC calculates the Mach number in the gas-water 
droplet mixture. First the acoustic speed in gaseous phase 
is determined by iteration as follows: 

(i) Assume Mach number and calculate static temperature 
and density. 

t = (1 + ^1 2 )' 1 T„ 1 
P = (1 + ^ 2 )' 1/(y ' 1) Poi/RToi 

(ii) Calculate acoustic speed in gaseous phase 

a g = (yRtg c ) °‘ 5 

(iii) Calculate the axial velocity 

V z = ifi/pA 

( i v ) Calculate absolute velocity 

Vi = V 3 /cosai 

(v) Calculate Mach number 

Mi = V 2 /a 
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Compare the calculated Mach number with the assumed 
value in (i). Iterate steps (i) to (v) until the 
desired accuracy is obtained. After determining the 
acoustic speed in gaseous phase. Function WICASD is 
called to determine the acoustic speed in droplet- 
laden gas flow. 


(2) Input Variables: 

ISTAGE stage number 

AMASSM mixture mass flow rate 

T01G total temperature of gaseous phase 

PRES total pressure 

XW1 total water content 

ALFA stator outlet angle of the previous stage 

RMIX gas content of gaseous phase 

CPMIX specific heat at constant pressure for gaseous 

phase 

(3) Output Variables: 

M Mach number 

VZ axial velocity 

C acoustic speed in mixture 

(4) Usage: 

CALL WICMAC (ISATE, AMASSM, T01G, PRES, M, VZ, C, XW1 , ALFA, 
RMIX, CPMIX) 


FUNCTION WICASD 

(1) Description: 

Function WICASD calculates the acoustic speed in droplet- 
laden gas flow. The following equation is used (Ref. 10). 


a = U ( 1 -a ) p + a p , 
■ v' g v H w 



where 

a^ = acoustic speed in gaseous phase 
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a = acoustic speed in water 
w 

p = density of gaseous phase 

P w = density of water 

a v = particulate liquid volume fraction 

x w = particulate liquid mass fraction 

a = x p /{p - x (p - p )} 
v vrg' w VH w ^g' J 

(2) Input Variables: 

XW total water content 

RHOG density of gas phase 

CG acoustic speed of gaseous phase 

(3) Output Variable: 

WICASD acoustic speed in gas-water droplet mixture 

(4) Usage: 

WICASD (XW, RHOG, CG) 

SUBROUTINE WICIRS 

(1) Description: 

Subroutine WICIRS is called at outlet of rotor and performs 
the calculation of droplet impingement and rebound in rotor 
passage for small droplet. 

(2) Input Variables: 

ISTAGE stage number 

RTIPIN blade tip radius 

XW1 mass fraction of small droplet 

XG mass fraction of gaseous phase 

RH0G1 density of gaseous phase 

BETA! rotor inlet relative flow angle 

W1 rotor inlet relative velocity 

(3) Output Variables: 

WW1 amount of water that impacts stagnation region 

of blade 

WW2 amount of water that impacts aft of blade 

WW total amount of water that impacts blade 
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(4) Usage: 

CALL WICIRS (ISTAGE, RTIPIN, XW1 , XG, RH0G1 , BETA!, W1 , WW1 , 
WW2 , WW) 


SUBROUTINE WICIRL 

(1) Description: 

Subroutine WICIRL is called at outlet of rotor and performs 
the calculation of droplet impingement and rebound in rotor 
passage for large droplet. 

(2) Input Variables: 

ISTAGE stage number 

RTIPIN blade tip radius 

XW1 mass fraction of large droplet 

XG mass fraction of gaseous phase 

RH0G1 density of gaseous phase 

BETA1 rotor inlet relative flow angle 

W1 rotor inlet relative velocity 

(3) Output Variables: 

WW1 amount of water that impacts upper surface of 

blade 

WW2 amount of water that impacts lo wer surface of 

blade 

WW amount of water that impacts blade surface 

(4) Usage: 

CALL WICIRL (ISTAGE, RTIPIN, XW1 , XG, RH0G1 , BETA1 , W1 , WW1 , 
WW2 , WW) 


SUBROUTINE WICISS 

(1) Description: 

Subroutine WICISS is called outlet of stator and performs the 
calculation of droplet impingement and rebound in stator 
passage for small droplet. 
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(2) Input Variables: 

ISTAGE stage number 

RTIPIN blade tip radius 

XW mass fraction of small droplet 

XG mass fraction of gaseous phase 

RH0G1 density of gaseous phase 

ALFA2 stator inlet absolute flow angle 

W1 stator inlet absolute velocity 

(3) Output Variables: 

WW1 amount of water that impacts stagnation region 

of blade 

WW2 amount of water that impacts off of blade 

WW total amount of water that impacts the blade 

(4) Usage: 

CALL WICISS (ISTAGE, TRIPIN, XW, XG, RH0G1 , ALFA2, W1 , WW1 , 
WW2, WW) 


SUBROUTINE WICISL 

(1) Description: 

Subroutine WICISL is called at outlet of stator and performs 
the calculation of droplet impingement and rebound in stator 
passage for large droplet. 

(2) Input Variables: 

ISTAGE stage number 

RTIPIN blade tip radius 

XW mass fraction of 

XG mass fraction of gaseous phase 

RH0G1 density of gaseous phase 

ALFA2 stator inlet absolute flow angle 

W1 stator inlet absolute velocity 

(3) Output Variables: 

WW1 amount of water that impacts upper surface of 

blade 
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WW2 amount of water that impacts lower surface of 

blade 

WW total amount of water that impacts on blade 

surface 


(4) Usage: 

CALL WICISL (ISTAGE, RTIPIN, XW, XG, RH0G1 , ALFA2, W1 , WW1 , 
WW2, WW) 


SU BROUTINE WICWAK 

(1) Description: 

Subroutine WJCWAK is called at rotor outlet and stator outlet, 
and calculates the droplet size of water that is re-entrained 
at trailing edge of rotor and stator blades. 

(i) Assume a value for a droplet diameter, d, that is 
re-entrained into wake. 

(ii) Calculate the stability number, SN. 

SN = y^/p g adg c 

(iii) Calculate the critical Weber number 
W e = 12 {1 + (SN) 0 * 36 } 

(iv) Calculate the largest stable droplet diameter 

d V 9 = 

max p g ’T 

(v) Compare the assumed droplet diameter with the calcu- 
lated one. Iterate entire steps until the satisfac- 
tory agreement is obtained. 

(2) Input Variables: 

RHOG density of gaseous phase 

V velocity of gaseous phase for small droplet or 

relative velocity between droplet and gaseous 
phase for large droplet 
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(3) Output Variables: 

DWAKE droplet size that re-entrained at trailing edge 

in(ft 3 ) 

DWAKEM droplet size that re-entrained at trailing edge 

in(ym) 

(4) Usage: 

CALL WICWAK (RHOG, V, DWAKE, DWAKEM) 


SUBROUTINE WICHET 

(1) Description: 

Subroutine WICHET is called at end of stage to perform the 
heat transfer calculation between water droplet and gaseous 
phase. The heat transfer rate can be determined from the 
following equation: 

Hf = h h A (T g ' V 


where h^ is the heat transfer coefficient. A, the droplet 
surface area, T^, the droplet surface temperature, and T , 
the temperature of the surrounding gas. The heat transfer 
coefficient can be expressed as follows: 

h h = Dr * Nu 


where k is the thermal conductivity of air, and Nu, the 

a 

Nusselt Number. The Nusselt number can be expressed in terms 
of the dimensionless groups as follows: 

Nu = 2.0 + 0.6 (Re) 0, 50 (Pr) 0, 33 

where Re is the Reynolds number based on the relative velocity 
between the droplet and the surrounding air, and Pr is Prandtl 
number. 


After calculating the temperature rise of the water and gas 
phase due to the work done by the rotor, the heat transfer 
calculation is carried out as follows: 
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(1) 

(ii) 


(ill) 

(iv) 

(v) 
(Vi) 


(vii) 


(viii) 


(ix) 


Calculate the average droplet diameter, 
Calculate the number of droplets, N^. 

H = % m 

d 4 , n ,,, 3 V 

p w3 lr(D d /Z) z 


where m is the mass flow rate of water phase, p, , 
w w 

the density of water, V , the axial direction veloc- 
ity, and Az, the axial length of one stage. 

Calculate the droplet surface area, A. 

Calculate the Nusselt number, Nu. 

Calculate the heat transfer coefficient, h^. 
Calculate the stage outlet temperature for droplet 
and gas without heat transfer, that is 


T = T + (AT ) . 
g 2 g i v g wk 


T = T + (AT ) . 
W 2 Wi w wk 


where ( AT ) w | c and (AT^)^ are the temperature rise of 
gas and water due to work done by rotor. 

Calculate the amount of heat transferred from the gas 
to the droplet. 


AH = h. A ( T 

h g 2 



) 


Calculate the temperature rise of the droplet and the 
temperature drop of the surrounding gas. 

( AH g>ht = AH/m g C s 


(AH,.,) 


, = AH/m C 

w'ht w w 


where C w is the specific heat for water and C s is the 
humid heat for air-water mixture. 

Calculate the stage outlet temperature for droplet 
and gas. 




+ ^ AT g^wk " ^ AT g^ht 

+ (A Vwk + (AT w } ht 
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(x) Using the temperature calculated in step (ix), repeat 
the steps (vii) to (ix) until a desired accuracy is 
obtained. 

(2) Input Variables: 

TGI temperature of gaseous phase at stage inlet 

TG3 temperature of gaseous phase at stage outlet 

TW1 temperature of droplet at stage inlet 

TW3 temperature of droplet at stage outlet 

DAVEN2 droplet nominal diameter at stage inlet 

DAVEN droplet nominal diameter at stage outlet 

DELZI length of stage 

VZ axial velocity 

WMASS1 mass flow rate of water 

VMASS1 mass flow rate of water vapor 

AMASS mass flow rate of dry air 

CHMASS mass flow rate of methane 

DPG specific heat constant pressure to gaseous phase 

CPW specific heat of water 

RE Reynolds number based on relative velocity 

between droplet and gaseous phase 


(3) Output Variables: 

DELIGH temperature drop in gaseous phase due to heat 

transfer between water droplet and gaseous phase 
DELTWH temperature rise in droplet due to heat transfer 

between water droplet and gaseous phase 

(4) Usage: 

CALL WICHET (TGI, TG3, TW3, DAVEN2 , DAVEN , DELZI , VZ, WMASS1 , 
VMASS1 , AMASS, CHMASS, CPG, CPW, DELIGH, DELTWH, 
RE) 


SUBROUTINE WICMAS 

(1) Description: 

Subroutine WICMAS is called at end of stage to perform the 
mass transfer calculation between water droplet and gas phases. 
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The mass transfer rate can be calculated by the following 
equation: 


dm 

dt 


= h A (C 
m 


wb 


C ) 
w 


where h m is the mass transfer coefficient. A, the droplet 

surface area, C ^ 9 the water vapor concentration at droplet 

surface, and C . the water vapor concentration in fluid flow 
w 

around droplet. 

Since the density represents the mass concentration, and the 
vapor is almost a perfect gas, the mass transfer rate can be 
expressed in terms of vapor pressure as follows: 


dm 

dt 

or 

dm 

dt 


^m^ ^ p wb p w) 


p 

wb 

P 

w 

T i 

T 

wb 

wj 


l 

R 


v 


where R is the gas constant for water vapor, P the vapor 
pressure at droplet surface, P , the vapor pressure in fluid 
flowing around droplet, T the vapor temperature at droplet 
surface, and T , the vapor temperature in fluid flowing 
around droplet. 


The surface area. A, for the droplet cloud is given by the 
relation. 


A = irD d N d 

where is the average droplet diameter, and N^, the number 
of droplets. 


The mass transfer coefficient, h , is expressed as follows: 


h m D 


Sh 
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A semi-empirical equa£4on for the diffusion coefficient in 

gases is given by the following: (Reference 11 ) 

3 /2 r n. 


D y = 435.7 


p ( v A l/3 + V B I/3 ' 2 


/ 


) 


where D y is in square centimeters per second, T is in degree 
Kelvin, p is the total system pressure in newtons per square 
meter, and and Vg are the molecular volumes of constituents 
A and B as calculated from the atomic volumes. M^ and Mg are 
given as follows: 

V A ■ V air ■ 29 ' 9 M A ■ M air = 28 ' 9 


V„ = H 


water 


= 18 .. 


M B = M. 


water 


18.0 


When the relative velocity between a single droplet and the 
surrounding fluid approaches zero, the following relationship 
is used to determine the mass transfer rate: 


Sh = 2.0. 


Mass transfer rates increase with increase in relative veloc- 
ity between the droplet and the surrounding air due to the 
additional mass transfer caused by the convection in the 
boundary layer around the droplet. The mass transfer coeffi- 
cient from a spherical droplet can be expressed in terms of 
dimensionless groups as follows: 

Sh = 2.0 + k (Re) x (Sc) y 

where Re is the Reynolds number based on relative velocity, 
which expresses the ratio of inertial force to viscous force, 
and Sc is the Schmidt number, which expressed the ratio of 
kinetic viscosity to molecular diffusivity. 

There is much discussion over the values of x, y, and k. The 
form most widely applied is the Ranz and Marshall equation 
which is 

Sh = 2.0 + 0.6 (Re) °* 50 (Sc)°* 33 
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The procedure for determining the mass transfer rate is as 
follows : 


(i) 

(ii) 
(111) 

(iv) 

(v) 

(vi) 

(vii) 

(viii) 

(ix) 

(x) 


Calculate the Sherwood number, Sh. 

Calculate the diffusion coefficient, D y . 

Calculate the average droplet size, D d< 

Calculate the mass transfer coefficient, h . 

m 

Calculate the total number of droplets, N^. 

Calculate the total surface area for all droplets. 
Calculate the water vapor pressure at droplet surface, 
P wb , based on the droplet surface temperature, T g . 
Assume the vapor pressure, p , and set p w = (P w ) a - 
Calculate the mass transfer rate, 

Calculate the new value of water mass flow rate. 


(xi) Calculate the new value of vapor mass flow rate 

_ . , dm 

ffi v - m v + dt 

(xii) Calculate the specific humidity, W. 


W = rti /rfi 
v a 


where in is the air mass flow rate. 

a 

(xiii) Calculate the vapor pressure. 

(xiv) Compare the calculated value, (P w ) c » with the assumed 
value (p w ) a . 

If (p ) agrees reasonably well with the assumed 
w c 

value (p ) proceed to step (xv). Otherwise, steps 
(viii) to (xiv) should be repeated. 

(xv) Using the determined p w> the mass transfer rate is 
calculated. Also, the specific humidity can be 
determined by the following equation: 

P 

W = 0.6219 p-- * - p™ 
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( 2 ) 


Input 

HW1 

TW1 

TW2 

PP1 

PP2 

TGI 

TG2 

DZ 

VZ 

DDAVE1 

DDAVE2 

AMASS 

RE 

VMASS1 

WMASS1 


Variables: 

specific humidity at stage inlet 
temperature of droplet at stage inlet 
temperature of droplet at stage outlet 
pressure of gaseous phase at stage inlet 
pressure of gaseous phase at stage outlet 
temperature of gaseous phase at stage inlet 
temperature of gaseous phase at stage outlet 
length of stage 
axial velocity 

droplet nominal diameter at stage inlet 
droplet nominal diameter at stage outlet 
mass flow rate of air 

Reynolds number based on relative velocity 
between droplet and gaseous phase 
mass flow rate of water vapor at stage inlet 
mass flow rate of water droplet at stage outlet 


(3) Output Variables: 

HW2 specific humidity at stage outlet 

VMASS2 mass flow rate of water vapor at stage outlet 

WMASS2 mass flow rate of water droplet at stage outlet 

DMDTAV average mass transfer rate across stage 

(4) Usage: 

CALL WICMAS (HW1 , TW1 , TW2 , PP1 , PP2 , TGI, TG2 , DZ, PWB1 , 

PWB2, PW1, PW2 , VZ, DDAVE1 , DDAVE2 , HW2 , VMASS1 , 
VMASS2, WMASS1 , WMASS2, DMDTAV, AMASS, RE) 


FUNCTION WICMTR 

(1) Description: 

Function WICMTR is called in Subroutine WICMTR and calculates 
the mass transfer rate. 

(2) Input Variables: 

TTG temperature of gaseous phase 
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TTW 

temperature of water droplet 

PPP 

pressure of gaseous phase 

DAVW 

droplet nominal diameter 

VA 

axial velocity 

DZ 

length of stage 

MMASS 

mass flow rate of mixture 

PW 

vapor pressure 

RE 

Reynolds number based on relative velocity 
between droplet and gaseous phase 


(3) Output Variable: 

DMDT mass transfer rate 

(4) Usage: 

WICMTR (TTG , TTW , PPP, DAVE, VZ, DZ, MM ASS, PW, RE) 

FUNCTION WIC PWB 

(1) Description: 

Function WICPWB calculates the saturation pressure for water 
vapor as a function of temperature as follows: 

logioP s = A - B/T 

where units are (Kg/cm 2 ) for and (K) for T. The values of 
constant A and B are given as follows: 

A = 5.97780, B = 2224.4 when 20°C < T < 100°C 

A = 5.64850, B = 2101.1 when 100°C < T < 200°C 

A = 5.45142, B = 2010.8 when 200°C < T < 350°C 

(2) Input Variable: 

TWB temperature of gaseous phase 

(3) Output Variable: 

WICPWB saturation pressure for water vapor 

(4) Usage: 

WICPWB (TWB) 
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FUNCTION WICNEW 


(1) Description: 

Function WICNEW is used to estimate the new trial value in 
the iteration procedure. 

(2) Input Variables: 

XI first trial value 

Y1 calculated value corresponds to XI 

X2 second trial value 

Y2 calculated value corresponds to X2 

(3) Output Variable: 

WICNEW new trial value 

(4) Usage: 

WICNEW (XI , Y1 , X2, Y2 ) 

FUNCTION WICTAN 

(1) Description: 

Function WICTAN ( X ) is used to obtain the ratio of SINE(X) to 
COSINE ( X) , that is, TAN(X) . 

(2) Input Variable: 

X angle 

(3) Output Variable: 

WICTAN value of TAN(X) 

(4) Usage: 

WICTAN(X) 

FUNCTION WICBPT 

(1) Description: 

Function WICBPT calculates the temperature at boiling point. 

(2) Input Variables: 

TSTAG temperature 

PSTAGE pressure 
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(3) Output Variable: 

WICBPT temperature at boiling point 

(4) Usage: 

WICBPT (TSTAG, PSTAG) 

FUNCTION WICSH 

(1) Description: 

Function WICSH calculates the specific humidity. 

(2) Input Variables: 

TSTAGE temperature 

PSTAG pressure 

(3) Output Variable: 

WICSH specific humidity 

(4) Usage: 

WICSH (TSTAG, PSTAG) 

SUBROUTINE WICSIZ 

(1) Description 

Subroutine WICSIZ is called at outlet of rotor and stator to 
determine the nominal droplet sizes. It is assumed that two 
kinds of droplets exist at inlet of compressor; namely, small 
droplet and large droplet. However, at trailing edge of each 
blade, the new droplets are re-entrained into blade wake. 

The droplets which are larger than DLIMIT are treated as large 
droplets and droplets which are smaller than DLIMIT are 
treated as small droplets. Each droplet size weighted based 
on its mass fraction in determining the nominal droplet size. 
Therefore, at outlet of each blade row. Subroutine WICSIZ 
gives two nominal diameters; one for small droplet and one 
for large droplet. It may be noted that only two classes of 
droplets are recognized in the model. 

(2) Input Variables: 

WMASSL mass flow rate of large droplet 
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WMASSS 

AMING1 

AMING2 

AMING3 

DL 

DS 

Dl 

D2 

D3 

DLIMIT 


mass flow rate of small droplet 

amount of water which is to be re-entrained into 

wake, originally small droplet 

amount of water which is to be re-entrained into 

wake, originally large droplet and upper part 

amount of water which is to be re-entrained into 

wake, originally large droplet and lower part 

droplet nominal size for large droplet before 

impingement 

droplet nominal size for small droplet before 
impingement 

droplet size associated with AMING1 

droplet size associated with AMING2 

droplet size associated with AMING3 

largest droplet diameter which can be treated as 

small droplet 


(3) Output Variables: 

AMSLL mass flow rate of small droplet after re- 

entrainment 

AMLGE mass flow rate of large droplet after re- 

entrainment 

DSLL droplet nominal size for small droplet 

DLGE droplet nominal size for large droplet 

(4) Usage: 

CALL WICSIZ (WMASSL , WMASSS , AMING1 , AMING2, AMING3, DL, DS, 
Dl, D2, D3 , DLIMIT, AMSLL, AMLGE, DSLL, DLGE) 


SUBROUTINE WICPR P 

(1) Description 

Subroutine WICPRP determines the flow properties such as gas 
constant specific heat ratio, and specific heat at constant 
pressure for the gaseous mixture. The working equations are 
as follows: 


mix 


= x. 


R a + \ 


R v + x c 


HO 



c pmix x a 


c + x 
pa v 


c + x 
pv c 


'pc 


^mi x = (1.0 - 


mix 


( 2 ) 


c . J 
pmix 


where 


= mass fraction of air in gaseous mixture 
= mass fraction of water vapor in gaseous mixture 
= mass fraction of methane in gaseous mixture 


x a + x v + x c = 1 


= gas constant of air 
= gas constant of water vapor 
= gas constant of methane 
= gas constant of mixture 
= specific heat constant pressure for air 
= specific heat constant pressure for water vapor 
= specific heat at constant pressure for methane 
= specific heat at constant pressure for mixture 


mix 
c pa 

v 

C pc 
c pmix 

r mix = s P eci ^ lc heat ratio for mixture 

Input Variables: 

XAIR mass fraction of air in gaseous mixture 

XH20 mass fraction of water vapor in gaseous mixture 

XCH4 mass fraction of methane in gaseous mixture 

T temperature of gaseous mixture 

(3) Output Variables: 


RMIX 

gas constant of gaseous mixture 

CPMIX 

specific heat constant pressure for gaseous 
mixture 

GAMMA 

specific heat ratio of gaseous mixture 

G1 

value for GAMMA/ (GAMMA - 1.0) 

G2 

value for (GAMMA - 1.0)/2.0 

G3 

value for -1.0/ (GAMMA - 1.0) 

(4) Usage: 

CALL WICPRP 

(XAIR, XH20, XCH4, T, RMIX, CPMIX, GAMMA, G1 
G3) 
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FUNCTION WICCPA 


(1) Description: 

Function WICCPA calculates the specific heat at constant 
pressure for air as a function of temperature as follows: 
(Reference 11 ) 

c = (a + aT = cT 2 + dt 3 + eT 4 )R 
P 

where units are (J/kg-K) for c , (K) for T, and (J/kg-K) for 
R. The values of coefficients a, b, c, d, and e are as 
follows : 

a = 3.65359 
b = -1.33736 x 10" 10 
c = 3.29421 x 10" 6 
d = -1.91142 x 10“ 9 
e = 0.275462 x 10" 12 

(2) Input Variable: 

T temperature 

(3) Output Variable: 

WICCPH specific heat constant pressure 

(4) Usage: 

WICCPH(T) 

FUNCTION WICCPH 

(1) Description: 

Function WICCPH calculates the specific heat at constant 
pressure for water vapor as a function of temperature as 
follows: (Reference 11) 

c = (a + bT + cT 2 + dT 3 + eT 4 )R 
P 

where units are (J/kg-K) for c , (K) for T, and (J/kg-K) for 

r 

R. The values of coefficients a, b, c, d, and e are as 
follows : 

a = 4.07013 
b = -1.10845 x 10" 3 
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c = 4.15212 x 10“ 6 
d = -2.96374 x 10~ 9 
e = 0.807021 x 10" 12 

(2) Input Variable: 

T temperature 

(3) Output Variable: 

WICCPH specific heat at constant pressure 

(4) Usage: 

WICCPH(T) 

FUNCTION WICCPC 

(1) Description: 

Function WICCPC calculates the specific heat at constant 
pressure for methane as a function of temperature as follows 
(Reference 12) 

c p = (a + bT + cT 2 + dT 3 + eT 4 )R 

where units are (J/kg-k) for c . (K) for T, and (J/kg-K) for 

r 

R. The values of coefficients a, b, c, d, and e are as 
follows : 

a = 3.82619 
b = -3.97946 x 10" 3 
c = 24.5583 x 10" 6 
d = -22.7329 x 10" 9 
e = 6.92760 x 10“ 12 

(2) Input Variable: 

T temperature 

(3) Output Variable: 

WICCPC specific heat constant pressure 

(4) Usage: 

WICCPC(T) 
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SUBROUTINE NASA 


(1) Description: 

The subroutine NASA corresponds to MAIN program of NASA-STGSTK 
program. NASA calls all of the major subroutines in NASA- 
STGSTK program. NASA first calculates the flow area at inlet 
and outlet of each stage. It next calls the subroutine 
CSPREF to calculate reference velocity diagrams at the speci- 
fied radius for each stage. Then NASA calls CSETA to calcu- 
late efficiency if it is not inputed. The pressure coeffi- 
cient is also calculated by calling CSPI. These computed 
characteristics for stage can be printed out in this sub- 
routine. 

(2) Input Variables: 

All input variables are specified in Common blocks. 

(3) Output Variables: 

All output variables are specified in Common blocks. 

(4) Usage: 

CALL NASA 

SUBROUTINE CSINPT 

(1) Description: 

The primary purpose of subroutine CSINPT is to read and write 
the input data which the program requires. For input of 
design stage performance, there is an option of either of the 
following input: (i) stage pressure ratio and adiabatic 

efficiency, or (ii) stage characteristics which consists of 
pressure coefficient versus flow coefficient and adiabatic 
efficiency versus flow coefficient. When either of the two 
above input options are used as input, the input parameters 
for the option not used are input as zero values. An example 
of input data is given in Chapter IV. 

(2) Input Variables: 

All input variables are specified in Common blocks. 
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(3) Output Variables: 

All output variables are specified in Common blocks. 

(4) Usage: 

CALL CSINPT 

SUBROUTINE CSPREF 

(1) Description: 

At design speed and flow, the subroutine CSPREF is coded to 
calculate: (i) velocity diagram at the specified radius for 

each stage inlet and outlet, and (ii) selected performance 
parameter for each stage. Basically CSPREF perform a one- 
dimensional compressible invicid flow calculation at each 
rotor inlet and outlet to obtain the velocity diagram for 
design input conditions. 

(2) Input Variables: 

All input variables are specified in Common blocks. 

(3) Output Variables: 

All output variables are specified in Common blocks. 

(4) Usage: 

CALL CSPREF 

FUNCTION CPFM 

(1) Description: 

The subroutine CPFM is used to obtain values of the specific 
heat at constant pressure, C , and ratio of specific heats, 

r 

a, as a function of static temperature, t. CPFM calculates 
the value of the specific heat at constant pressure, Cp, from 
a fifth degree polynomial of static temperature, t, expressed 
by 


where the polynomial coefficients, C^ , are input data read by 
CSINPT. The value of the ratio of specific heats, Y, is then 
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calculated from the following relations: 

Y = C p /CC p - R) 

where R is gas constant. 

(2) Input Variable: 

TS static temperature for which the specific heat 

at constant pressure is determined 

(3) Output Variable: 

CPFM specific heat at constant pressure 

(4) Usage: 

CPRM(TS) 

SUBROUTINE CSETA 

(1) Description: 

The subroutine CSETA is called by the subroutine NASA when 
values of stage adiabatic efficiency versus flow coefficient 
at design speed are not usable input (i.e. values of 0.0 for 
adiabatic efficiency are inputed). CSETA obtains values of 
adiabatic efficiency for each stage at the various input flow 
coefficient for the stage. 

(2) Input Variables: 

All input variables are specified in Common blocks. 

(3) Output Variables: 

All output variables are specified in Common blocks. 

(4) Usage: 

CALL CSETA 

SUBROUTINE CSPSI 

(1) Description: 

The subroutine CSPSI is called by the subroutine NASA when 
values of stage pressure coefficient versus flow coefficient 
at design speed are not usable input (i.e. input values for 
stage pressure coefficient equal 0.0). The subroutine CSPSI 
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obtains values of stage pressure coefficient at the various 
input flow coefficient for the stage. 

(2) Input Variables: 

XWN water content 

LORS index to specify calculation scheme 

L0RS=1 for small droplet calculation 
LQRS=2 for large droplet calculation 

(3) Output Variables: 

All output variables are specified in Common blocks. 

(4) Usage: 

CALL CSPSI(XWN, LORS) 

SUBROUTIN E CSDEVS 

(1) Description: 

The subroutine CSDEVS calculates the value of stator diffusion 
constant, K, for small droplet calculation. After determining 
the value of K, the deviation, 6, can be determined by the 
following: 

S = 6* + K {(V 2 /V 3 ) - ( V 2 /V 3 )*} 

(2) Input Variables: 

XW water content 

V2M absolute velocity at stator inlet 

V3M absolute velocity at stator outlet 

V2V3S ratio of absolute velocity at stator inlet and 

absolute velocity at stator oulet at the design 
point 

I stage 

(3) Output Variable: 

FK diffusion constant 

(4) Usage: 

CALL CSDEVS(XW, V2M, V3M, V2V3S, I, FK) 
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SUBROUTINE CDEVSL 

(1) Description: 

The subroutine CDEVSL calculates the value of stator diffu- 
sion constant, K, for large droplet calculation. After 
determining the value of K, the deviation, 6, can be deter- 
mined by the following: 

6 = 6* + K {(V 2 /V 3 ) - (V 2 /V 3 )*} 

(2) Input Variables: 

XW water content 

V2M absolute velocity at stator inlet 

V3M absolute velocity at stator oulet 

V2V3S ratio of absolute velocity at stator inlet and 

absolute velocity at stator oulet at the design 
point 

I stage 

(3) Output Variable: 

FK diffusion constant 

(4) Usage: 

CALL CDEVSL (XW, V2M, V3M, V2V3S , I, FK) 

SUBROUTINE CSDEV 

(1) Description: 

The subroutine CSDEV calculates the value of rotor diffusion 
angle, K, for small droplet calculation. After determining 
the value of K, the deviation, 6, can be determined by the 
following: 

6 = S* + K {(W 2 /W 3 ) - (W 2 /W 3 )*} 

(2) Input Variables: 

SPEEDF rotor speed 

XW water content 

V3MR relative velocity at rotor outlet 

V2MR relative velocity at rotor inlet 
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V3DV2 


ratio of relative velocity at rotor inlet and 
relative velocity at rotor outlet at the design 
point 
I stage 

(3) Output Variable: 

FK diffusion constant 

(4) Usage: 

CALL CSDEV(SPEEDF, XW, V3MR, V2MR, V3DV2, I, FK) 


SUBROUTINE CSDEVL 

(1) Description: 

The subroutine CSDEVL calculates the value of rotor diffusion 
constant for large droplet calculation. After determining the 
value of K, the deviation, 6, can be determined by the follow- 
ing: 

6 = 6* + K {(W 2 /W 3 ) - (W 2 /W 3 )*} 


( 2 ) 


Input Variables: 

SPEEDF rotor speed 

XW water content 

V3MR relative velocity at rotor 

V2MR relative velocity at rotor 

V3DV2 ratio of relative velocity 

relative velocity at rotor 

point 

I stage 


outlet 

inlet 

at rotor inlet and 
outlet and the design 


(3) Output Variable: 

FK diffusion constant 


(4) Usage: 

CALL CSDEVL(SPEED, XW, V3MR, V2MR, V3DV2 , I, FK) 
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FUNCTION DELK70 


(1) Description: 

The function DELK70 calculates the difference between diffu- 
sion constant at 90 per cent rotor speed and diffusion con- 
stant at 70 per cent rotor speed. 

(2) Input Variables: 

I stage 

T1 (W 2 /W 3 ) - (W 2 /W 3 )* 

(3) Output Variable; 

DELK70 difference between diffusion constant at 90 per 

cent rotor speed and diffusion constant at 70 
per cent rotor speed 

(4) Usage: 

DELK70 ( I , Tl) 

FUNCTION DELK80 

(1) Description: 

The function DELK80 calculates the difference between diffu- 
sion constant at 90 per cent rotor speed and diffusion con- 
stant at 80 per cent rotor speed. 

(2) Input Variables: 

I stage 

Tl (W 2 /W 3 ) - (W 2 /W 3 )* 

(3) Output Variable: 

DELK80 difference between diffusion constant at 90 per 

cent rotor speed and diffusion constant at 80 
per cent rotor speed 

(4) Usage: 

DELK80( I , Tl) 
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FUNCTION DELKIO 


(1) Description: 

The function DELKIO calculates the difference between diffu- 
sion constant at 90 per cent rotor speed and diffusion con- 
stant at 100 per cent rotor speed. 

(2) Input Variables: 

I stage 

T1 (W 2 /W 3 ) - (W 2 /W 3 )* 

(3) Output Variable: 

DELKIO difference between diffusion constant at 90 per 

cent rotor speed and diffusion constant at 100 
per cent rotor speed 

(4) Usage: 

DELK10( I , Tl) 

FUNCTION DPHI 

(1) Description: 

When the efficiency-flow coefficient curve is input at ref- 
erence speed, the function DPHI alters the curve for off- 
reference speed. 

(2) Input Variables: 

I stage 

ISPD rotor speed in per cent 

(3) Output Variable: 

DPHI amount of flow coefficient which is shifted for 

al 1 -reference speed 

(4) Usage: 

DPHI (I, ISPD) 

SUBROUTINE CSETA1 

(1) Description: 

The subroutine CSETA1 corrects the stage efficiency for the 
presence of water in the small droplet calculation. 
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(2) Input Variables: 

I stage 

J index for speed 

K index for point on a particular speed 

XW water content 

PHID flow coefficient at design point 

PHIR flow coefficient 

ETAD stage efficiency before correction for the 

presence of water 

(3) Output Variable: 

ETAD stage efficiency after correction for the pres- 

ence of water 

(4) Usage: 

CALL CSETA1 (I , J , K, XW, PHID, PHIR, ETAD) 

SUBROUTINE CSETAL 

(1) Description: 

The subroutine CSETAL corrects the stage efficiency for the 
presence of water in the large droplet calculation. 

(2) Input Variables: 

I stage 

J index for speed 

K index for point on a particular speed 

XW water content 

PHID flow coefficient at design point 

PHIR flow coefficient 

ETAD stage efficiency before correction for the pres- 

ence of water 

ETADD stage efficiency at design point 

(3) Output Variable: 

ETAD stage efficiency after correction for the pres- 

ence of water 
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(4) Usage: 

CALL CSETAL( I , J, K, XW, PHID, PHIR, ETAD, ETADD) 

SUBROUTINE CSPSD 

(1) Description: 

The subroutine CSPSD alters the pressure coefficient for off 
design speeds. This subroutine is the same as one used in 
NASA-STGSTK program. 

(2) Input Variables: 

All input variables are specified in Common blocks. 

(3) Output Variables: 

All output variables are specified in Common blocks. 

(4) Usage: 

CALL CSPSD 

SUBRO UTINE CSPAN 

(1) Description: 

The subroutine CSPAN alters flow coefficient and pressure 
coefficient for blade reset. This subroutine is the same as 
one used in NASA-STGSTK program. 

(2) Input Variables: 

All input variables are specified in Common blocks. 

(3) Output Variables : 

All output variables are specified in Common blocks. 

(4) Usage: 

CALL CSPAN 

SUBROUTINE CSOUPT 

(1) Description: 

The subroutine CSOUPT calculates the stage performance and 
prints them out in the small droplet calculation. 


123 



( 2 ) 


Input Variables: 


FAIO 
I STAGE 
FLOW! 
ALFA! 
BETA! 


initial flow coefficient 
stage 

mass flow rate 

absolute flow angle at rotor inlet 
relative flow angle at rotor outlet 


(3) Output Variables: 

BETA2 relative flow angle at rotor outlet 

VZ axial velocity 

ALFA2 absolute flow angle at rotor outlet 

ALFA3 absolute flow angle at stator outlet 

DELTG rise in stagnation temperature of gas phase 

DELTW temperature rise of water 

W1 relative velocity at rotor inlet 

W2 relative velocity at rotor outlet 

VI absolute velocity at stator inlet 

V2 absolute velocity at stator outlet 


(4) Usage: 

CALL CSOUPT ( FAIO, ISTAGE, FL0W1 , ALFA!, BETA!, BETA2 , VZ, 
ALFA2, ALFA3, DELTG, DELTW, W1 , W2, VI, V2) 


SUBROUTINE CS0UPT2 

(1) Description: 

The subroutine CS0UPT2 calculates the stage performance and 
prints them out in the small droplet calculation. 

(2) Input Variables: 

FAIO initial flow coefficient 

ISTAGE stage 

FLOW! mass flow rate 

ALFA! absolute flow angle at rotor inlet 

BETA1 relative flow angle at rotor outlet 
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(3) Output Variables: 

BETA2 relative flow angle at rotor outlet 

VZ axial velocity 

ALFA2 absolute flow angle at rotor outlet 

ALFA3 absolute flow angle at stator outlet 

DELT6 rise in stagnation temperature of gas phase 

DELTW temperature rise of water 

W1 relative velocity at rotor inlet 

W2 relative velocity at rotor outlet 

VI absolute velocity at stator inlet 

V 2 absolute velocity at stator outlet 

(4) Usage: 

CALL CS0UPT(FAI0, ISTAGE, FL0W1 , ALFA1 , BETA1 , BETA2, VZ, 
ALFA2 , ALFA3 , DELTG, DELTW, W1 , W2, VI, V2) 
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APPENDIX 3 


ILLUSTRATIVE TEST CASES FOR 
THE NASA-WISGSK CODE 

Two illustrative test cases for the calculation of the Test 
Compressor performance utilizing the NASA-WISGSK Code are presented 
as follows. 

1) Test Case No. 1 : Operation with air flow at 100 percent 

of design speed at the meanline 
section of the compessor. 

2) Test Case No. 2 : Operation with air-water mixture 

containing large droplets (with a mass 
fraction of 0.04 of water) at 100 
percent of design speed at the meanline 
section of the compressor. 
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Test Case No. 1 


* * * * X * X X * * * * * X * * * * * * * •-- * a * INPUT DATA «»»»**«■** 

NS (NUMBER OF STAGE )= G 
IPERFM-I 

PERFORMANCE AT MEAN 



1 

2 

3 

4 

5 

6 

RRHUB(I) 

.770 

1.035 

1.232 

1.37S 

1.4S3 

1.572 

RC( I ) 

. BOS 

.554 

.534 

.510 

. 4S3 

.456 

RBLADEC I ) 

1G.00 

20.00 

20.00 

25.00 

28.00 

32.00 

STAGER ( I ) 

34.25 

29. SG 

27.37 

28.30 

23.17 

29.75 

STAGES (I ) 

23.67 

25 . 62 

26. 94 

28.41 

23.82 

38.39 

SRHUB(I) 

. 923 

1.145 

1.311 

1.445 

1.538 

1.530 

SC(I) 

.442 

.412 

.412 

.412 

.412 

.412 

SELADE(I) 

14.00 

2G.00 

28.00 

32 .00 

36.00 

30.00 

SIGUMRCI) 

1.052 

1.120 

1.037 

1.182 

1.211 

1.283 

SI GUMS ( I ) 

. G40 

1.061 

1.033 

1.133 

1.311 

1.087 

FAISTL(I) 

I 

I 

I 

I 

I 

I 

GAPR(I) 

.125 

.125 

. 125 

.125 

.125 

.125 

GAPS ( I) 

.125 

.125 

.125 

.125 

.125 

.125 

RRTIP(I) 

2.1G 

2.1G 

2.16 

2.16 

2.16 

2.16 

SRTIP(I) 

2. IB 

2.1G 

2.16 

2. 16 

2. 16 

2.16 

RT ( I ) 

2. 143 

2.151 

2. 148 

2.143 

2.149 

2. 147 

RM ( I) 

1 . 426 

1.575 

1.G42 

1.722 

1.789 

1.836 

Rrl(I) 

.781 

1.05G 

1.252 

1.411 

1.533 

1.621 

Sil(I) 

2.147 

2 . 138 

8. 1E7 

2.153 

2.118 

2. 100 

SM ( I ) 

1.502 

1 . 573 

1.637 

1.712 

1.7EG 

1.784 

SH(I) 

.934 

1.152 

1.318 

1.453 

1.548 

1.532 

BLOCK (I) 

.383 

.970 

. SS7 

o/ ci 

• J 

.323 

.302 

BLOCKS (I) 

.378 

. SGG 

„ 345 

0-3 

.308 

.36 3 

EET1MRC I ) 

42.72 

42.74 

41. G2 

4STS5 

44.00 

45.07 

BET2MRC I ) 

25.73 

17. 17 

13.12 

13.76 

14.33 

14.43 

EETIMS(I) 

35. 15 

40.11 

43. 3G 

45.00 

46.31 

43.71 

EET2M5C I ) 

12. IS 

11.13 

10.51 

11.81 

13.32 

29.28 

PR12DCI ) 

1 . 154 

1.165 

1.221 

1.237 

1 . 230 

1.215 

PR13DCI) 

1.152 

1.159 

1.213 

1.223 

1.221 

1.203 

ETARD(I) 

occ 

• Wi Lj 

. SGG 

.SES 

.865 

.SG2 

.354 


x*-*K*3t tt-XK ****:-*-*:-*-*--* && 
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INPUT BATA 




x a -x x- -x c;-5its x- x » * * x- -xx-xx * * * * 


FNF( FRACTION OF DESIGN CGRRECTED SPEED)=1.000 

XDIMC INITIAL WATER CONTENT OF SMALL DROPLET )= 0 

XDDINC INITIAL WATER CONTENT OF LARGE DROPLET ) = 0 

RHUM ID (INITIAL RELATIUE HUMIDITY)- .00 PEI? CENT 
XCH4C INITIAL METHANE CONTENT )= 0 

TOG (COMPRESSOR INLET TOTAL TEMPRATURE OF GA3) = 518.70 
TOW (COMPRESSOR INLET TEMPERATURE OF DRGPLRET)- 513.70 
P0( COMPRESSOR INLET TOTAL FRESSURE)=211G.S0 

DIN( INITIIL DROPLET DIAMETER OF SMALL DROFLET)= 20.0 
DDINC INITIAL DROPLET DIAMETER OF LARGE DROPLET )= GOO.O 

FND( DESIGN ROTATIONAL SPEED)=51120. 0 

DSMASS( DESIGN MASS FLOW RATE 5= .3755 

COMPRESSOR INLET TATAL TEMPERATURE (GAS PHASE) 518.70 R 

COMPRESSOR INLET TOTAL PRESSURE-21 1G. 80 LB/FT--2 

PREE ( PERCENT OF WATER THAT REBOUND AFTER IMPINGE MENT)= 50.0 PERCENT 
ROTOR SPEED=51 120.0 RPM 

CORRECTED ROTOR SPEED= 51120.0 RPM( 100.0FER CENT OF DESIGN CORRECTED SPEED) 
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<- -x x - -x * -r- s * -Z-X-&-& * DESIGN POINT INFORMATION ************ **•* 
***** COMPRESSOR INLET ***** 

TOTAL TEMPERATURE AT COMPRESSOR INLET= 518.70000 
TOTAL PRESSURE AT COMPRESSOR INLET= 21 IB. 80 
STATIC TEMPERATURE AT COMPRESSOR INLET= 4SB.2810S 
STATIC PRESSURE AT COMPRESSOR INLET= 1813.73 
STATIC DENSITY AT COMPRESSOR INLET= . 0GB50 

ACOUSTIC SPEED AT COMPRESSOR INLET=1092. 25314 
AXIAL UELOCITY AT COMPRESSOR INLET= 51S.S1873 
MACH NUMBER AT COMPRESSOR INLET= .47500 
STREAMTUBE AREA AT COMPRESSOR INLET= .01057 
FLOW COEFFICIENT AT COMPRESSOR INLET= .53817 
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DESIGN POINT INFORMATION ************ *** 



STAGE- 1 






TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 518.700 

OUTLET 541.148 

2118. 800 
2442.787 

492. G37 
508. 2G5 

17G7.573 

1S31.57G 

. GG7 
.072 


AXiAL 

UELCCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN COMP 
OF A33 UEL 

TAN COMP 
OF REL UEL 

ROTOR 

ROTOR 

INLET 533.7G531 
CUTLET 525.57105 

559.3SS3S 
B2S . 55382 

725.32333 
GiS. 75550 

150.52734 

344.14833 

485.G2003 

325.S030G 


ROTOR 

SPEED 

AES MACH 
NUMBER 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

REL TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET G3S.147 

OUTLET E70.051 

.514 

.583 

. GG7 
. 5S0 

535.454 

540.141 

2381.210 

5091.750 


AES FLOW 
ANGLE 

REL FLCW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOW 

CQEFFICIEN" 

ROTOR 

ROTOR 

INLET 15.G1000 

OUTLET 33.19714 

42.03015 
31 . 1'oSEb 

. 0103S 
.00937 

1.42G00 

1.50200 

.55886 

.54553 

STAGE 

STAGE 

ROTOR 

ROTOR 

ROTOR 

TOTAL PRESSURE RATIO AT DESIGN FOINT= 1. 

ADIABATIC EFFICIENCY AT DESIGN POIHT= 
TOTAL PRESSURE RATIO AT DESIGN FOVMT= 1. 

ADIAEATIC EFFICIENCY AT DESIGN POINT- . 

TOTAL TEMPERATURE RATIO AT DESIGN FQINT= 

15200 

35333 

15400 

SSGOO 

1.04323 
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*************** DESIGN POINT INFORMATION ************ *** 


***** 

STAGE= 

2 ***** 







TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

541.148 

5GG.141 

2438.554 

2340.915 

511.984 

522.318 

2008.852 

2142.394 

.074 

.077 



AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN COMP 
OF ABS UEL 

TAN COMP 
OF REL UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

549.21299 

581.16447 

591.88727 

725.94045 

730.88951 

839.44211 

220.87086 

435.01484 

481.94832 

288.71034 



ROTOR 

SPEED 

ABS MACH 
NUMBER 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

REL TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

702. 617 
701.725 

.534 

.848 

.859 

.571 

558.431 

558.331 

2888.138 

5751.007 



AES FLOW 
ANGLE 

REL FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 

ROTOR 

ROTOR 

INLET 

OUTLET 

21.89000 

3G.815G9 

41.2G7G5 

24.G5154 

.00930 

.00841 

1.57500 

1.57300 

.58970 

.80285 


STAGE 

STAGE 

ROTOR 

ROTOR 

ROTOR 


TOTAL PRESSURE RATIO AT 
ADIABATIC EFFICIENCY AT 
TOTAL PRESSURE RATIO AT 
ADIABATIC EFFICIENCY AT 
TOTAL TEMPERATURE RATIO 


DESIGN FOINT= 1.15900 

DESIGN POINT= .93231 

DESIGN POINT= 1.16500 

DESIGN POINT= .9GG00 

AT DESIGN POINT= 1.04618 



J-X-~-X-££-5J 

*» DESIGN POINT INFORMATION ********** 

** *** 


*-X*-*-» 

STAGE= 

3 X Vr liX Z. 







TOTAL 

TOTAL 

STATIC 

STATIC 

STATIC 



TEMP 

PRESSURE 

TEMP 

PRESSURE 

DENSITY 

ROTOR 

INLET 

5SG.141 

2826. 284 

535. 3G2 

2323. 8G8 

.081 

ROTOR 

OUTLET 

600.462 

345G.SS2 

543.786 

2533. 049 

.086 



AXIAL 

ABSOLUTE 

RELATIUE 

TAN COMP 

TAN COMP 



UELOCITY 

UELOCITY 

UELOCITY 

OF ABS UEL 

OF REL UEL 

ROTOR 

INLET 

574.81563 

G0S.2GGG3 

7S4.2300G 

198.93541 

533.57089 

ROTOR 

OUTLET 

B 14.43880 

7S1. 11343 

G62. 59507 

432.28950 

247.98G27 



ROTOR 

ABS MACH 

REL MACH 

REL TOTAL 

REL TOTAL 



SPEED 

NUMBER 

NUMBER 

TEMP 

PRESSURE 

ROTOR 

INLET 

732. 50G 

. 53G 

.G92 

58S.533 

3199.070 

ROTOR 

OUTLET 

730 . 27G 

. G80 

.577 

58G.2G3 

6329. 751 



AES FLOW 

REL FLOU 

STREAMTUBE 


FLOU 



ANGLE 

ANGLE 

AREA 

RADIUS 

COEFFICIENT 

ROTOR 

INLET 

19.09000 

42.SGSS2 

.00803 

1.G4200 

. 5SS2G 

ROTOR 

OUTLET 

38.12932 

21.97880 

.00708 

1.63700 

. G3736 

STAGE 

TOTAL 1 

PRESSURE RATIO 

AT DESIGN 

POINTS 1.21300 


STAGE 

ADIAEATIC EFFICIENCY 

AT DESIGN 

POINT= . 934G4 


ROTOR 

TOTAL 1 

PRESSURE RATIO 

AT DESIGN 

POINT= 1.22100 


ROTOR 

ADIABATIC EFFICIENCY 

AT DESIGN 

POINT= . 3G800 


ROTOR 

TOTAL ' 

TEMPERATURE RATIO AT DESIGN POINT= 1 

. 0G0G2 
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*************** DESIGN POINT INFORMATION ************ *** 


***** 

STAGE= 

4 ***** 







TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

GOO. 462 
G39.381 

3428.282 

4240.785 

5G9.0G9 

585.841 

2839.988 
3118. S59 

.094 

.100 



AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN COMP 
OF ABS UEL 

TAN COMP 
OF REL UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

5S0. 04590 
G19.G39G5 

G14.G9778 

803.61317 

809.54747 
GG8. 93304 

203.47020 

511.7044G 

564.72459 

252.02926 



ROTOR 

SPEED 

ABS MACH 
NUMBER 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

REL TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

768. 195 
7G3.734 

. 52G 
. G78 

.692 
. 5G4 

623.519 

G22.951 

3912.431 

8231.914 



ABS FLOW 
ANGLE 

REL FLOW 
ANGLE 

STREAMTUEE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 

ROTGR 

ROTOR 

INLET 

OUTLET 

19 n 33000 
39.55025 

44.23321 

22.13332 

. 00G92 
. 00G07 

1.72200 

1.71200 

.60169 

.64276 

STAGE 

STAGE 

ROTOR 

ROTOR 

ROTOR 

TOTAL PRESSURE RATIO AT DESIGN POINT= 1,1 
ADIABATIC EFFICIENCY AT DESIGN POINT= .! 
TOTAL PRESSURE RATIO AT DESIGN POINT= l.i 
ADIABATIC EFFICIENCY AT DESIGN POINT= .! 
TOTAL TEMPERATURE RATIO AT DESIGN POINT= 

22800 

S3002 

23700 

9G500 

1.06481 
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x- w cc ; w - ^ “ X c: x x w w DESIGN POINT INFORMATION ************ *** 


e-ssc-a* 

STAGE= 

5 ***** 







TOTAL 

TEfiP 

TOTAL 

FRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

839.331 

679.732 

4209.930 

5178.214 

808.982 

625.197 

3508.755 

3857.244 

.108 

.118 



AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN COMP 
OF ABS UEL 

TAN COMP 
OF REL UEL 

ROTOR 

RGTOR 

INLET 

OUTLET 

586.84149 

617.0SSE8 

G25. 22187 
S11.SB444 

828.78513 

889.85331 

215.88308 

527.75042 

582.40082 

280.07304 



ROTOR 

SPEED 

AES MACH 
NUMBER 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

REL TOTAL 
PRESSURE 

ROTOR 

RGTOR 

INLET 

OUTLET 

7S8.0S4 

787.823 

.518 

.883 

.885 

.547 

883.853 

882.302 

4798.528 

9891.778 



AB3 FLOW 
ANGLE 

REL FLOW 
ANGLE 

STREAMTUSE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 


ROTOR INLET 20.18000 44.78240 

ROTOR OUTLET 40,53724 22.85308 


.00591 1.78900 .80873 

.00528 1.7SG00 .84011 


STAGE TOTAL PRESSURE RATIO AT 
STAGE ADIABATIC EFFICIENCY AT 
ROTOR TOTAL PRESSURE RATIO AT 
ROTOR ADIABATIC EFFICIENCY AT 
ROTOR TOTAL TEMPERATURE RATIO 


DESIGN POINT= 1.22100 

DESIGN PGINT= .92580 

DESIGN POINT= 1.23000 

DESIGN POINT= .98200 

AT DESIGN POINT= 1.0G311 
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f*K************ DESIGN POINT INFORMATION 
***** STAGE= G 


ROTOR 

ROTOR 


ROTOR 

ROTOR 


ROTOR 

ROTOR 


ROTOR 

ROTOR 


INLET 

OUTLET 


INLET 

OUTLET 


INLET 

OUTLET 


INLET 

OUTLET 


TOTAL 

TEMP 

679.732 
720 . 259 

AXIAL 

UELOCITY 

537.1S574 

B03.3S773 

ROTOR 

SPEED 

SIS. 051 
795.853 

ABS FLOW 
ANGLE 

21.15000 
41 . S32S8 


TOTAL 

PRESSURE 

5140.325 
Gci'45 . 4Sb 

ABSOLUTE 

UELOCITY 

G23.G0SGG 
Sll. OGGI'S 

AES MACH 
NUMBER 

. 50G 
.642 

REL FLOW 
ANGLE 

45.22772 

22.S14S4 


STATIC 

TEMP 

G4G.933 

EG5.939 

RELATIUE 

UELOCITY 

S33. 74045 
G54.G1329 

REL MACH 
NUMBER 

.GS9 

.518 

STREAMTUBE 

AREA 

.00511 

.00467 


STATIC 

PRESSURE 

4318.954 

473G.2S1 

TAN COMP 
OF ABS UEL 

227.1G390 

542.02320 

REL TOTAL 
TEMP 

704.449 

701.350 


RADIUS 

1.S3G00 

1.78400 


STAGE TOTAL PRESSURE RATIO AT 
STAGE ADIABATIC EFFICIENCY AT 
ROTOR TOTAL PRESSURE RATIO AT 
ROTOR ADIABATIC EFFICIENCY AT 
ROTOR TOTAL TEMPERATURE RATIO 


DESIGN POINT= 1.20800 

DESIGN POINT— .923S5 

DESIGN POINTS 1.21500 

DESIGN POINT= .95400 

AT DESIGN FOINT= 1.05982 


STATIC 

DENSITY 

.125 

.133 

TAN COMP 
OF REL UEL 

591.8S1S9 

253.83017 

REL TOTAL 
PRESSURE 

5829.034 

10970.182 

FLOW 

COEFFICIENT 

. GG91 0 
. G25S1 
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*************** DESIGN POINT INFORMATION ************ *** 


********** OUERALL PERFORMANCE AT DESIGN POINT **** 
COMPRESSOR INLET TOTAL TEMPERATURE- 518.70 
COMPRESSOR INLET TOTAL PRESSURE^ 2116.80 
CORRECTED MASS FLOW RATE= 3.168 
OUERALL TOTAL PRESSURE RATI 0=2. 3334 
OUERALL TOTAL TEMPERATURE RATIO-1. 3886 


OUERALL ADIABATIC EFFICIENCY= .3223 
OUERALL TEMPERATURE RISE= 201.553 


BET1SRCI) 

1 

42.03 

BET2SRC I ) 

31.78 

AINCSR(I) 

-.69 

ADEUSR(I) 

5.39 

BET1SSCI) 

33.20 

EET2SSC I ) 

21.89 

AINCSSCI) 

-1 .35 

ADEUSS(I) 

3.70 

TD( I ) 

518.7 

OMEGSCI) 

.009 

OMEGR(I) 

.113 


2 3 4 

41.27 42.87 44.23 
24.65 21.38 22.13 
-1.47 1.25 1.38 

7.48 8.86 8.37 

3S.82 38.13 33.55 
13.09 19.33 20.18 
-3.23 -5.23 -5.45 
7.36 8.82 8.37 

541.1 50S.1 600.5 
.021 .025 .028 

.018 .018 .016 


5 6 IGU 

44.78 45.23 
22.85 22.81 
.78 .16 

8.52 8.38 

40.54 41.93 
21.15 34.86 15.61 
-5.77 -6.78 
7.83 5.58 

639.4 673.7 
.029 .024 

.004 .036 


****** 
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% 


*»»**»»««*»*««»»«•*« INITIAL FLOW CGEFFICI£NT= .500 (STAGE= 1 ) ******************* 

STAGE TOTAL PRESSURE RATIQ= 1.1E675 

STAGE TOTAL TEMPERATURE RATIO= 1 . 0475G 
STAGE ADIABATIC EFFICIENCY= .94531 

STAGE FLOW COEFFICIENT= .501 
AXIAL UELOCITY= 430.05 
ROTOR SPEED= 958. B8 


*ROTOR INLET* 

*ROTOR OUTLET* 

*STATOR OUTLET* 

TOTAL PRESSURE 

211G.80G0 

2463.7801 

24S9.7801 

STATIC PRESSURE 

1835. 8585 

2047.8529 


TOTAL TEMPERATURE (GAS) 

518.7000 

543.3S87 

543.3G87 

STATIC TEMPERATURE (GAS) 

498.050G 

515.09G7 


STATIC DENSITY(GAS) 

. 0S91 

.0745 


AXIAL UELOCITY 

480.04SG 

4G7.4542 


ABSOLUTE UELOCITY 

4SS.4330 

583.288G 


RELATIUE UELOCITY 

G94.G048 

5G7. 1588 


BLADE SPEED 

G3G. 1474 

G70.0514 

702.G172 

TANG. COMP. OF ABS. UEL. 

134.1223 

343.3727 


TANG. COMP. OF REL. UEL. 

502.0251 

321.178 7 


ACOUSTIC SPEED 

1093.5459 

1112.1022 


ABSOLUTE MACH NUMBER 

.4558 

.5245 


RELATIUE MACH NUMEER 

.6352 

.5100 


FLOW COEFFICIENT 

.5007 

.4881 


FLOW AREA 

.0104 

.0093 


ABSOLUTE FLOW ANGLE 

15.6100 

3S.7349 

21.8900 

RELATIUE FLOW ANGLE 

4G.2S19 

34 . 4322 


INCIDENCE 

3.5G19 

1.5849 


DEUIATION 


3.7422 
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INITIAL FLOW COEFFICIENT= *500 (ISTAGE = 1 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 


STAGE TOTAL FRESSURE RATIO= 1.16675 

STAGE TOTAL TEMPERATURE RATIO= 1,04756 
STAGE ADIAEATIC EFFICIENCY= .94773 



**STAGE INLET** 

--STAGE OUTLET** 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

xu= 

.00000 

.00000 

.00000 

xw= 

0 

0 

0 

xww= 

0 

0 

0 

XWT= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

WWMASS= 

0 

0 

0 

WTMASS= 

0 

0 

0 

AMASS= 

.34431 

.34491 

.34491 

CKMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

c 34431 

.34491 

.34491 

TMASS= 

.34431 

.34431 

.34491 

ws= 

.00000 

.00000 

.00000 

RHOA= 

. 07649 

. 07444 

. 07S5S 

RHDM= 

. 0GS04 

.07444 

.07856 

RHOG= 

.06310 

.07444 

. 07856 

TG= 

518.70000 

543.36874 

543.3S874 

TW= 

513.70000 

0 

0 

TWW= 

513.700C0 

0 

513.70000 

P= 

PI 16. 80000 

2463. 780 IP 

2469.73012 

TB= 

671.40656 

0 

679.03308 

TBEW= 

271.SS50B 

273.23823 

273.23829 
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******************** INITIAL FLOW COEFFICIENT= .500 (STAGE= 2 ) 

STAGE TOTAL PRESSURE RATIO= 1.1S107 

STAGE TOTAL TEMPERATURE RATIG= 1.05518 
STAGE ADIABATIC EFFICIENCY= .92GS7 

STAGE FLOW COEFFICIENT= .503 
AXIAL UELQCITY= 48E.20 
ROTOR SPEED= 959.57 


*RQTOR INLET* 

*ROTOR OUTLET* 

*STATOR OUTLET* 

TOTAL PRESSURE 

2469.7801 

2941.6925 

2941.6925 

STATIC PRESSURE 

2130.2903 

2311.9417 


TOTAL TEMPERATURE (GAS) 

543.3687 

573.3511 

573.3511 

STATIC TEMPERATURE C GAS) 

520.9302 

535.2941 


STATIC DENSITY (GAS) 

.0767 

.0810 


AXIAL UELOCITY 

482.2002 

504.5504 


ABSOLUTE UELOCITY 

519.6676 

676.8799 


RELATIUE UELOCITY 

701.0474 

563.3171 


BLADE SPEED 

702.6172 

701.7250 

732.5063 

TANG. COMP. OF ABS. UEL. 

193.7455 

451.2154 


TANG. COMP. OF REL. UEL. 

5G8.871 7 

250.5096 


ACOUSTIC SPEED 

1118.2902 

1133.6031 


ABSOLUTE MACH NUMBER 

.4647 

.5971 


RELATIUE MACH NUMBER 

.6269 

.4969 


FLOW COEFFICIENT 

.5025 

.5290 


FLOW AREA 

.0093 

.0084 


ABSOLUTE FLOW ANGLE 

21.8900 

41.8060 

19.0900 

RELATIUE FLOW ANGLE 

46.5416 

26.4044 


INCIDENCE 

3.8016 

1.6960 


DEUIATION 


9.2344 



******************* 
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******************** INITIAL FLOW COEFFICIENT= .500 ( ISTAGE= 2 ) 

STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT CJPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.19107 

STAGE TOTAL TEMPERATURE RATI0= 1.05518 
STAGE ADIABATIC EFFICIENCY= .S2822 


**STAGE INLET** 


**STAGE OUTLET** 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 


**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 


xu= 

.00000 

.00000 

.00000 

xw= 

0 

0 

0 

xww= 

0 

0 

0 ' 

XWT= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN= 

0 

0 


XGAS 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

WWMASS= 

0 

0 


WTMASS= 

0 

0 


AMASS= 

.34491 

.34491 

.34491 

CHMASS= 

0 

0 


UMASS= 

.00000 

.00000 

.00000 

GMASS= 

.34491 

.34491 

.34491 

TMASS= 

.34491 

.34491 

.34491 

WS= 

.00000 

.00000 

.00000 

RHOA= 

.08519 

.08079 

.09103 

RHOM= 

.09904 

.08079 

.09103 

RHOG= 

.07996 

.08076 

.09103 

TG= 

543.39874 

573.35113 

573.35113 

TW= 

0 

0 

0 

TWW= 

513.70000 

0 

513.70000 

P= 24BS. 78012 

2941.99246 

2941 . 6924S 

TB= 

679.03308 

0 

687.89220 

TDEW= 

273.23829 

274.96167 

274.99197 


******************** 
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I 


******************** INITIAL FLOW COEFFICIENT= .500 <STAGE= 3 ) 

STAGE TOTAL PRESSURE RATIO= 1.23327 

STAGE TOTAL TEMPERATURE RATI0= 1.0GGS9 
STAGE ABIAEATIC EFFICIENCY= .92335 

STAGE FLOW COEFFICIENT= .514 
AXIAL UELOCITY= 492.32 
ROTOR SPEED= 958.24 


*ROTOR INLET* *ROTOR OUTLET* *STATOR OUTLET* 


TOTAL PRESSURE 

2S41.G925 

3627.8878 

3G27.8878 

STATIC PRESSURE 

2555. G014 

2821. 566G 


TOTAL TEMPERATURE (GAS) 

573.3511 

G11.58G3 

Gil. 5863 

STATIC TEMPERATURE (GAS) 

550.8154 

569.3302 


STATIC DENSITY C GAS) 

.0870 

.0929 


AXIAL UELOCITY 

492.3213 

522.1031 


ABSOLUTE UELOCITY 

520.971G 

713.5891 


RELATIUE UELOCITY 

747.2351 

576.2383 


BLADE SPEED 

732.5063 

730.2758 

768. 1948 

TANG. COMP. OF AES. UEL. 

170.3853 

486.4338 


TANG. COMP. OF REL. UEL. 

562.1210 

243.8420 


ACOUSTIC SPEED 

1149.6996 

1168.8627 


ABSOLUTE MACH NUMBER 

.4531 

.6105 


RELATIUE MACH NUMBER 

.6499 

.4930 


FLOW COEFFICIENT 

.5138 

.5502 


FLOW AREA 

.0080 

.0071 


ABSOLUTE FLOW ANGLE 

19.0900 

42.9744 

19.3300 

RELATIUE FLOW ANGLE 

48.7872 

25.0344 


INCIDENCE 

7.1G72 

-.3856 


DEUIATION 


11.9144 



******************* 
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****************** ** INITIAL FLOW COEFFICIEMT= 


500 (ISTAGE= 3 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.23327 

STAGE TOTAL TEMPERATURE RATIG= 1.0SGS9 
STAGE ADIABATIC EFFICIENCY= .S2441 

**STAGE INLET** **STAGE OUTLET** **STAGE OUTLET** 


(BEFORE INTER- (AFTER INTER- 
STAGE ADJUST- STAGE ADJUST- 
MENT) MENT) 


xu= 

.00000 

.00000 

.00000 

xw= 

0 

0 

0 

xuu= 

0 

0 

0 

XWT= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN= 

0 

0 


XGAS 

1.00000 

1.00000 

1.00000 

WMASS- 

0 

0 

0 

WWMASS= 

0 

0 


WTMASS= 

0 

0 


AMASS= 

.34491 

.34491 

.34491 

CMMASS= 

0 

0 


UMASS= 

.00000 

.00000 

.00000 

GMASS= 

.34491 

.34491 

.34491 

TMASS= 

.34491 

.34491 

.34491 

WS= 

.00000 

.00000 

.00000 

RHOA= 

.03617 

. 03264 

.10713 

RHOM= 

. 06S04 

. 09264 

.10713 

RHOG= 

.08698 

.09264 

.10713 

TG= 

573.35113 

611.58634 

611.58634 

TW= 

0 

0 

0 

TWW= 

513.70000 

0 

513.70000 

P= 

2941.69246 

3627.88778 

3627.88778 

TB= 

687.89220 

0 

6S3. 32453 

TDEU= 

274.66167 

276.38807 

276.38307 
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* «•*'« * -5 5S 


INITIAL FLOW COEFFICIENT= 


.500 (STAGE 3 4 1 


******************* 


STAGE TOTAL PRESSURE RATIO= 1.24777 

STAGE TOTAL TEMPERATURE RATI0= 1.07115 
STAGE ADIABATIC EFFICIENCY 3 .91401 


STAGE FLOW COEFFICIENT 3 .512 
AXIAL UELOCITY 3 491.04 
ROTOR SPEED 3 S5S.G8 



ROTOR INLET* 

*ROTOR OUTLET* 

*STATOR OUTLET* 

TOTAL PRESSURE 

3G27.SS78 

452S.7581 

452G.7581 

STATIC PRESSURE 

3181.1072 

3530.5184 


TOTAL TEMPERATURE ( GAS 1 

611.5863 

G55.1013 

G55.1013 

STATIC TEMPERATURE (GAS) 

589.1312 

610.3937 


STATIC DENSITY(GAS) 

.1012 

.1034 


AXIAL UELDCITY 

491.0360 

521.G5G1 


ABSOLUTE UELOCITY 

520.3705 

734.5837 


RELATIUE UELOCITY 

772.1853 

57G.9315 


BLADE SPEED 

7GB. 1948 

7G3.7337 

798.0839 

TANG. COMP. OF ABS. UEL. 

172.2471 

517.1925 


TANG. COMP. OF REL. UEL. 

5S5.S473 

24G.5412 


ACOUSTIC SPEED 

1188. G3S9 

1209. 8SG5 


ABSOLUTE MACH NUMEER 

.4378 

.G071 


RELATIUE MACH NUMEER 

. G4SG 

. 47G9 


FLOW COEFFICIENT 

.5122 

.5508 


FLOW AREA 

. 00G9 

.0061 


AESOLUTE FLOW ANGLE 

19.3300 

44.7538 

20.1800 

RELATIUE FLOW ANGLE 

50.5129 

25.29G0 


INCIDENCE 

7.GG29 

-.2482 


DEUIATION 


11.5360 
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«**»««-«« 


INITIAL FLOW COEFFICIENT= .500 ( ISTAGE= 4 ) ******************** 




STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 


STAGE TOTAL PRESSURE RATIO= 
STAGE TOTAL TEMPERATURE RATIO= 
STAGE ADIABATIC EFFICIENCY= 


1.24777 

1.07115 

.31452 



**STAGE INLET** 

**STftGE OUTLET** 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

xu= 

.00000 

.00000 

.00000 

xu= 

0 

0 

0 

xm= 

0 

0 

0 

XWT= 

0 

0 

0 

XAIR= 

1.00000 

1.G0000 

1.00000 

XMET AN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

UMASS= 

0 

0 

0 

WWMASS= 

0 

0 

0 

UTMASS= 

0 

0 

0 

AMASS= 

.34491 

.34491 

.34491 

CHMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

.34491 

.34491 

.34491 

TMASS= 

.34491 

.34491 

.34491 

WS= 

.00000 

.00000 

.00000 

R!-!0A= 

.11113 

.10816 

. 12629 

RHOM= 

.06904 

.10816 

. 12629 

RHOG= 

.10123 

.10816 

. 12629 

TG= 

611.58634 

655.10129 

655.10129 

TW= 

0 

0 

0 

TWN= 

513.70000 

0 

513.70000 

P= 

3627.88778 

452S. 75812 

4526.75812 

TB= 

G98.S245S 

0 

710.75001 

TDEW= 

276.33807 

278.23445 

273.23445 
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INITIAL FLOW COEFFICIENT= 


.500 (STAGE= 5 ) *«*******«•» -»%##**** 


STAGE TOTAL PRESSURE RATIO= 1.24015 

STAGE TOTAL TEMPERATURE RATIO= 1.0S9S7 
STAGE ADIABATIC EFFICIENCY= .20502 


STAGE FLOW CCEFFICIENT= .513 
AXIAL UELOCITY= 491.33 
ROTOR SPEEB= 35S.S8 



k-ROTOR INLET* 

-“■ROTOR OUTLET* 

•sSTATQR OUTLET* 

TOTAL PRESSURE 

4526.7581 

5613.8734 

5613.3784 

STATIC PRESSURE 

3938.7709 

4431.6060 


TOTAL TEMPERATURE (GAS) 

G55.1013 

700.7430 

700.7430 

STATIC TEMPERATURE (GAS) 

632.4225 

655.2672 


STATIC DENSITY(GAS) 

.1185 

.1268 


AXIAL UELOCITY 

491.3271 

515.3153 


ABSOLUTE UELOCITY 

523.4G05 

741.7059 


RELATIUE UELOCITY 

789.1231 

574.6752 


BLADE SPEED 

7SS.0S39 

787.8235 

819.0509 

TANG. COMP. OF ABS. UEL 

. ISO. 5785 

533.4582 


TANG. COMP. OF REL. UEL 

. 617.5054 

254. 3652 


ACOUSTIC SPEED 

1230. S834 

1253.0193 


AESOLUTE MACH NUMBER 

.4252 

.5919 


RELATIUE MACI-l NUMBER 

.6411 

.4586 


FLOW COEFFICIENT 

.5125 

.5454 


FLOW AREA 

.0059 

.0053 


ABSOLUTE FLOW ANGLE 

20.1800 

45.3911 

21.1500 

RELATIUE FLOW ANGLE 

51.4920 

26.2714 


INCIDENCE 

7.4920 

-.3189 


DEUIATION 


11.9414 
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******************** INITIAL FLOW COEFFICl'ENT= .500 (ISTAGE= 5 ) ******************** 


STAGE 

STAGE 

STAGE 

STAGE 


XU= 

xw= 

xww= 

XWT= 

XAIR= 

XMETAN 

XGAS 

WMASS= 

WWMASS : 

WTMASS : 

AMASS= 

CHMASS : 

UMASS= 

Gf1ASS= 

TMASS= 

WS= 

RHOA= 

RHOM= 

RHOG= 

TG= 

TW= 

TWW= 

P= 

TB= 

TDEW= 


PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 


TOTAL PRESSURE RATIO= 1.24015 


TOTAL TEMPERATURE 

RATIO= 1.0G9G7 


ADIABATIC EFFICIENCY= .904SS 


**STAGE INLET** 

**STAGE OUTLET** 

**STAGE OUTLET** 


(BEFORE INTER- 

(AFTER INTER- 


STAGE ADJUST- 

STAGE ADJUST- 


MENT) 

MENT) 

.00000 

.00000 

.00000 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1.00000 

1.00000 

1.00000 

= 0 

0 

0 

1.00000 

1.00000 

1.00000 

0 

0 

0 

= 0 

0 

0 

= 0 

0 

0 

.34431 

.34491 

.34491 

= 0 

0 

0 

.00000 

.00000 

.00000 

.34431 

.34491 

.34491 

.34491 

.34491 

.34491 

.00000 

.00000 

.00000 

.12952 

. 12G54 

. 1475G 

. 0G904 

. 12G54 

. 1475G 

.11854 

. 12G54 

. 14756 

G55. 10129 

700.74303 

700.74303 

0 

0 

0 

513.70000 

0 

513.70000 

452G. 75812 

5G13. 87838 

5G13. 87838 

710.75001 

0 

725.824S4 

278.23445 

270.7GG54 

270.7GG54 
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******************** INITIAL FLOW COEFFICIENT= .500 (STAGE= 6 ) 

STAGE TOTAL PRESSURE RATIO= 1.22479 

STAGE TOTAL TEMPERATURE RATI0= 1 . 0G583 
STAGE ADIABATIC EFFICIENCV= .89836 

STAGE FLOW COEFFICIENT= .503 
AXIAL UELOCITY= 487.17 
ROTOR SPEED= 957.79 


*R0T0R INLET* *R0T0R OUTLET* *STATOR OUTLET* 


TOTAL PRESSURE 

5S13.8784 

G875.8088 

G875.8088 

STATIC PRESSURE 

5002.4952 

5515.2479 


TOTAL TEMPERATURE (GAS) 

700.7430 

74G.8730 

746.8730 

STATIC TEMPERATURE (GAS) 

G78.2178 

701.7038 


STATIC DENSITY(GAS) 

.1383 

.1473 


AXIAL UELOCITY 

487.1G82 

500.2128 


ABSOLUTE UELOCITY 

522.3545 

740.25G3 


RELATIUE UELOCITY 

79G.84G1 

559.2849 


BLADE SPEED 

819.0509 

795.8534 

.5000 

TANG. COMP. OF ABS. UEL. 

188.4712 

545.G800 


TANG. COMP. OF REL. UEL. 

G30.5797 

250.1734 


ACOUSTIC SPEED 

1274.0547 

1295. 92GG 


ABSOLUTE MACH NUMBER 

.4100 

.5712 


RELATIUE MACH NUMBER 

. G254 

.4316 


FLOW COEFFICIENT 

. 508S 

.5339 


FLOW AREA 

.0051 

.0047 


ABSOLUTE FLOW ANGLE 

21.1500 

47.4892 

0 

RELATIUE FLOW ANGLE 

52.3113 

26.5712 


INCIDENCE 

7.2413 

-1.2208 


DEUIATION 


12.1412 



******************* 
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»**»«»««*; »*•»*-**--»*»** INITIAL FLOW COEFFICIENT= .500 (ISTAGE= G ) **»**Ht*»*** ********* 

STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.22479 

STAGE TOTAL TEMPERATURE RATIO= 1.06583 
STAGE ADIAEATIC EFFICIENCV= .S3787 


xu= 

**STAGE INLET** 
.00000 

**STAGE OUTLET** 
CEEFORE INTER- 
STAGE ADJUST- 
MENT) 

.00000 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

.00000 

xw= 

0 

0 

0 

xuu= 

0 

0 

0 

XWT= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

WWMASS= 

0 

0 

0 

WTMASS= 

0 

0 

0 

AMASS= 

.34431 

.34431 

.34431 

CHMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

.34431 

.34431 

.34431 

TMASS= 

.34431 

.34431 

.34431 

WS= 

.00000 

.00000 

.00000 

RHOA= 

. 1501G 

.1471 4 

.17073 

RHOM= 

.06304 

.14714 

.17073 

RHOG= 

.13828 

.14714 

.17073 

TG= 

700.74303 

746.87297 

746.37237 

TW= 

0 

0 

0 

TWW= 

513.70000 

0 

513.70000 

P= 

5613.87838 

GS75.S0S7S 

6375.80878 

TB= 

725.82464 

0 

733.30213 

TDEW= 

270.76654 

272.48445 

272.48445 
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********** OUERALL PERFORMANCE ********* 

INITIAL FLOW COEFFICIENT= .50 

CORRECTED 5PEED=51120. 0 1.000 FRACTION OF DEIGN CORRECTED SPEED 

INITIAL WATER CONTENT (SMALL DROPLET)= 0 
INITIAL WATER CONTENT (LARGE DROPLET )= 0 

INITIAL WATER CONTENT ( TOTAL )= 0 

INITIAL RELATIUE HUMIDITY= .0 PER CENT 
INITIAL METHANE CONTENT= 0 

COMPRESSOR INLET TOTAL TEMPERATURE= 518.70 

COMPRESSOR INLET TOTAL PRESSURE^ 211G.80 

CORRECTED MASS FLOW RATE OF MIXTURE= .345( 2.910) 

CORRECTED MASS FLOW RATE OF GAS PHASE .345( 2.910) 

OUERALL TOTAL PRESSURE RATI0=3.2482 

OUERALL TOTAL TEMPERATURE RATI0=1.4399 

OUERALL ADIABATIC EFFICIENCY= .9046 

OUERALL TEMPERATURE RISE OF GAS PHASE= 228.173 
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Test Case No. 2 




INPUT DATA *** »»»■«»*{*■**-***■»■»*«**»«#**«#**«*«■»**» 


NS (NUMBER OF STAGE )= G 
IPERFM=I 

PERFORMANCE AT MEAN 



1 

2 

3 

4 

5 

G 


RRHUBCI) 

.770 

1.035 

1 • 232 

1 .378 

1 . 489 

1.572 


RCCJ) 

.£05 

.554 

.534 

.510 

.483 

.456 


RBLABE(I) 

1G.00 

20.00 

20.00 

25.00 

28.00 

32.00 


STAGER ( I ) 

34.25 

£3 . SS 

27.37 

28.30 

29.17 

29.75 


STAGES ( I ) 

23 . £7 

25. £2 

2S.94 

28.41 

29.82 

38.99 


SRHUBCI) 

.223 

1 . 145 

1.311 

1.445 

1 .538 

1.580 

.774 

seen 

. 442 

.412 

.412 

.412 

.412 

.412 


SBLAjjE(I) 

14.00 

23.00 

28.00 

32.00 

36.00 

30.00 


SIGUMRC I ) 

1.052 

1.120 

1.037 

1.182 

1.211 

1.283 


SI GUMS ( I ) 

.£40 

1.061 

1.0S3 

1.1SS 

1.311 

1 . 087 


FASSTLC I ) 

I 

T 

T 

T 

T 

T 


GAPRCI) 

.125 

. 125 

.125 

. 125 

.125 

.125 


GAPS ( I ) 

.125 

. 125 

.125 

.125 

. 125 

.125 


RRTIPCI) 

2.1G 

2. IE 

2.1G 

2.1E 

2.1G 

2.1G 


SRTIPCI) 

2. 1G 

2. 1£ 

2. 1G 

2.1G 

2.1G 

2.1G 

2.1G 

RT ( I ) 

2. 143 

2.151 

2.148 

2.145 

2. 149 

2. 147 


RM ( I ) 

1 . 42G 

1.575 

1 . G42 

1 . 722 

1.783 

1 . 83G 


RHCI) 

.781 

1.G5G 

1.252 

1.411 

1.533 

1 .£21 


SMC I) 

2. 147 

2.13S 

2.127 

2.123 

2.118 

2. 100 


SMC I) 

1.502 

1.573 

1.G37 

1.712 

1.7GG 

1 . 784 


SMC I) 

. S34 

1.152 

1.318 

1 . 453 

1.548 

1.5S2 


BLOCK ( I ) 

!SS3 

. 37G 

.587 

.943 

.923 

.902 


ELOCKSC!) 

. S7S 

. SGG 

.845 

. 328 

.908 

.863 


EET1MRC I ) 

42.72 

42.74 

41. G2 

42.85 

44.00 

45.07 


EET2NRC I ) 

25. 7S 

17.17 

13.12 

13. 7G 

14.33 

14.43 


EET1MSC I ) 

35.15 

40.11 

43. 3G 

45.00 

4G.31 

43.71 

0 

EET2MSCI) 

12. IS 

11.13 

10.51 

11.81 

13.32 

29.28 

21.99 

PRIED ( I ) 

1 . 154 

1. 1G5 

1.221 

1.237 

1.230 

1.215 


PR13DCI) 

1.152 

1. 15S 

1.213 

1.228 

1.221 

1.20S 


ETARD C I ) 

• S£S 

.SGG 

.sss 

.SG5 

. SG2 

. 954 
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#**■#*********************-*■*•** INPUT DATA ****»***-*^*****-************** 

FNF(FRACTION OF DESIGN CORRECTED SPEED)=1.000 

XDIN( INITIAL WATER CONTENT OF SMALL DROPLET)= 0 
XDDINC INITIAL WATER CONTENT OF LARGE DROPLET )= .040 
RHUMID( INITIAL RELATIUE HUMIDITY)= .00 PER CENT 
XCH4C INITIAL METHANE CONTENT )= 0 

TOG( COMPRESSOR INLET TOTAL TEMPRATURE OF GAS)= 518.70 
TOW (COMPRESSOR INLET TEMPERATURE OF DRGPLRET)= 513.70 
P0( COMPRESSOR INLET TOTAL PRESSURE) =2116.80 

DINCINITIIL DROPLET DIAMETER OF SMALL DROPLET )= 20.0 

DDINC INITIAL DROPLET DIAMETER OF LARGE DROPLET)= 800.0 

FNDCDESIGN ROTATIONAL SPEED)=5i 120 . 0 

DSMASSC DESIGN MASS FLOW RATE)= .3755 

COMPRESSOR INLET TATAL TEMPERATURE (GAS PHASE) 518.70 R 

COMPRESSOR INLET TOTAL PRESSURE=2118.80 LB/FT**2 

PREB (PERCENT OF WATER THAT REBOUND AFTER IMPINGE MENT)= 50.0 PERCENT 
ROTOR SPEED=51 120.0 RPM 

CORRECTED ROTOR SPEED= 51120.0 RPM( 100.0PER CENT OF DESIGN CORRECTED SPEED) 


151 



***e»*x-***j:-*»*«- DESIGN POINT INFORMATION ************ *** 
***** COMPRESSOR INLET ***** 

TOTAL TEMPERATURE AT COMPRESSOR INLET= 518.70000 
TOTAL PRESSURE AT COMPRESSOR INLET= 21 IB. 80 

STATIC TEMPERATURE AT COMPRESSOR INLET^ 496.28109 
STATIC PRESSURE AT COMPRESSOR INLET= 1813.73 
STATIC DENSITY AT COMPRESSOR INLET= .0B850 

ACOUSTIC SPEED AT COMPRESSOR INLET=10S2. 25914 
AXIAL UELOCITY AT COMPRESSOR INLET= 518.81873 
MACH NUMBER AT COMPRESSOR IMLET= .47500 
STREAMTUBE AREA AT COMPRESSOR INLET= .01057 
FLOW COEFFICIENT AT COMPRESSOR INLET= .53817 
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DESIGN POINT INFORMATION ************ *** 


***»«• 

STAGE= 

1 ***** 







TOTAL 

TOTAL 

STATIC 

STATIC 

STATIC 



TEMP 

PRESSURE 

TEMP 

PRESSURE 

DENSITY 

ROTOR 

INLET 

51S.700 

2116.800 

492. G37 

17S7.579 

. 0G7 

ROTOR 

OUTLET 

541 . 148 

2442.787 

508. 2G3 

19G1.57S 

.072 



AXIAL 

ABSOLUTE 

RELATIUE 

TAN COMP 

TAN COMP 



UELOCITY 

UELOCITY 

UELOCITY 

OF AES UEL 

OF REL UEL 

ROTOR 

INLET 

538. 7G53I 

55S.3SS33 

725.32393 

150.52734 

485.62003 

ROTOR 

OUTLET 

525.37105 

G2E . 55GS2 

G13. 75550 

344.14338 

325.90306 



ROTOR 

AES MACH 

REL MACH 

REL TOTAL 

REL TOTAL 



SPEED 

NUMBER 

NUMBER 

TEMP 

PRESSURE 

ROTOR 

INLET 

636. 147 

.514 

. GG7 

536.454 

2381.210 

ROTOR 

OUTLET 

G70.051 

. 5E3 

. 5G0 

540.141 

5031.730 



ABS FLOW 

REL FLOW 

STREAMTUBE 


FLOW 



ANGLE 

ANGLE 

AREA 

RADIUS 

COEFFICIENT 

ROTOR 

INLET 

I5.S1000 

42.03015 

. 0103G 

1.42S00 

.55886 

ROTOR 

OUTLET 

33.13714 

31.78325 

.00987 

1.50200 

.54559 

STAGE 

TOTAL 

PRESSURE RATIO AT DESIGN 

POINT- 1, 

15200 


STAGE 

ADIABATIC EFFICIENCY AT DESIGN 

POINT= 

S5383 


ROTOR 

TOTAL 

PRESSURE RAT 

10 Al DESIGN 

PQZNT= 1. 

15400 


ROTOR 

ADIABATIC EFFICIENCY AT DESIGN 

FOINT= 

SS300 


ROTOR 

TOTAL 

TEMPERATURE 

RATIO AT DESIGN PDINT= 

1.04323 
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DESIGN POINT INFORMATION *■***■*»*■***»* *** 


zaza* STAGE= 2 ***** 

TOTAL 

TEMP 

ROTOR INLET 541.148 
ROTOR OUTLET 5GG.141 

AXIAL 

UELOCITV 

ROTOR INLET 543.21290 
ROTOR OUTLET 581.16447 

ROTOR 

SPEED 

ROTOR INLET 702. G17 
ROTOR OUTLET 701.725 

AES FLOW 

ftMH FT 


ROTOR INLET 21.8S000 
ROTOR OUTLET 3G.815G9 


TOTAL STATIC 

PRESSURE TEMP 

243S.554 511.334 

2S40.915 522. 31G 

AESOLUTE RELATIUE 

UELOCITY UELOCITV 

5S1.S8727 730.G8951 

725.S4045 B33. 44211 

AES MACH REL MACH 
NUMBER NUMBER 

.534 .659 

.648 .571 

REL FLOW STREAMTUBE 

ANGLE ■ AREA 

41.2S765 .00930 

24.E5154 .00341 


STATIC STATIC 

PRESSURE DENSITY 

2008.852 .074 

2142.394 .077 

TAN COMP TAN COMP 

OF AB5 UEL OF REL UEL 

220 . 6708G 481.94G32 

435.014S4 2GG. 71034 

REL TOTAL REL TOTAL 

TEMP PRESSURE 

55G.431 2GS8.13G 

55G.331 5751.007 

FLOW 

RADIUS COEFFICIENT 

1.57500 . 5GS70 

1.57300 . G02S5 


STAGE TOTAL FRESSURE RATIO AT DESIGN POINT= 1.15300 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .93231 

ROTOR TOTAL FRESSURE RATIO AT DESIGN PGINT= 1.16500 

ROTOR ADIABATIC EFFICIENCY AT DESIGN POINT= .SGGOO 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT= 1.04G18 
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*************** DESIGN FOINT INFORMATION ************ *** 
***** ST AGE= 3 ***** 


TOTAL 

TEMP 

ROTOR INLET 565.141 
ROTOR OUTLET 600.462 

AXIAL 

UELOCITY 

ROTOR INLET 574.61563 
ROTOR GIJTLET 614. 43880 

ROTOR 

SPEED 

ROTOR INLET 732. 50G 
ROTOR OUTLET 730. 27G 

AES FLOW 
ANGLE 

ROTOR INLET 19.03000 
ROTOR OUTLET 38.12932 


TOTAL STATIC 

FRESSURE TEMP 

2826.234 535.362 

3450.822 549. 78S 

ABSOLUTE RELATIUE 

UELOCITY UELOCITY 

BOS .26663 734.29006 

781.11343 662.59507 

ABS MACH REL MACH 

MUHEER NUMBER 

.536 .692 

. GSO .577 

REL FLOW STREAMTUBE 

ANGLE AREA 

42. 8GSS2 .00803 

21.978S0 .00708 


STATIC STATIC 

PRESSURE DENSITY 

2323.868 .081 

2533.049 .086 

TAN COMP TAN COMP 

OF ABS UEL OF REL UEL 

193.93541 533.570SS 

432.23950 247.S8627 

REL TOTAL REL TOTAL 

TEMP PRESSURE 

535.533 3199.070 

536.233 6929. 7d1 

FLOW 

RADIUS COEFFICIENT 

1.64200 .52626 

1.63700 .63736 


STAGE TOTAL PRESSURE RATIO AT DESIGN POINT= 1.21300 

STAGE ADIAEATIC EFFICIENCY AT DESIGN POINT= .93464 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.22100 

ROTOR ADIAEATIC EFFICIENCY AT DESIGN POINT= .96300 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN FOINT= 1.0G0G2 
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***x*k»x*»*«3*« DESIGN POINT INFORMATION ************ *** 

STAGE= 4 ***** 

TOTAL TOTAL STATIC STATIC STATIC 

TEMP PRESSURE TEMP PRESSURE DENSITY 

ROTOR INLET E00.4G2 3428.282 569.069 2839.938 .094 

ROTOR OUTLET 639.381 4240.785 585.341 3113.959 .100 

AXIAL ABSOLUTE RELATIUE TAN COMP TAN COMP 

UELOCITY UELOCITY UELOCITY OF AB3 UEL OF REL UEL 

ROTOR INLET 580.04590 614.69778 809.54747 203.47020 5G4. 72459 

ROTOR OUTLET G19.G39G5 S03.G1317 GG8. 93304 511.70446 252.0232G 

ROTOR ABS MACH REL MACH REL TOTAL REL TOTAL 

SPEED NUMBER NUMBER TEMP PRESSURE 

ROTOR INLET 768.195 .52G . 692 G23.519 3912.431 

ROTOR OUTLET 7G3.734 .G7S .5G4 G22.951 8231.914 

ABS FLOW REL FLOW S7REAMTUBE FLOW 

ANGLE ANGLE AREA RADIUS COEFFICIENT 

ROTOR INLET 19.33000 44.23321 .00G92 1.72200 .60169 

ROTOR OUTLET 39.55025 22.13332 .00607 1.71200 .64275 

STAGE TOTAL PRESSURE RATID AT DESIGN POINT= 1.22800 

STAGE ADIAEATIC EFFICIENCY AT DESIGN POINT= .93002 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.23700 

ROTOR ADIAEATIC EFFICIENCY AT DESIGN POIMT= .SS500 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN FQINT= 1.06431 
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*************** DESIGN POINT INFORMATION ******** 

**** *** 


***** 

STAGE= 

5 ***** 







TOTAL 

TOTAL 

STATIC 

STATIC 

STATIC 



TEMP 

PRESSURE 

TEMP 

PRESSURE 

DENSITY 

ROTOR 

INLET 

639.381 

4209.930 

G0G.9G2 

350G.755 

.108 

ROTOR 

OUTLET 

679.732 

5176.214 

G25. 197 

3357.244 

.116 



AXIAL 

ABSOLUTE 

RELATIUE 

TAN COMP 

TAN COMP 



UELOCITY 

UELOCITY 

UELOCITY 

OF ABS UEL 

OF REL UEL 

ROTOR 

INLET 

586.64149 

625.22167 

826.78513 

215.63303 

582.40082 

ROTOR 

OUTLET 

GI7.0SSES 

B11.SS444 

GG9.G53S1 

527.75042 

260.07304 



ROTOR 

AES MACH 

REL MACH 

REL TOTAL 

REL TOTAL 



SPEED 

NUMBER 

NUMBER 

TEMP 

PRESSURE 

ROTOR 

INLET 

7S3 » 034 

.513 

.885 

GG3.653 

4733. 523 

ROTOR 

OUTLET 

767.823 

. EG3 

.547 

662.302 

3691. 778 



ABS FLOW 

REL FLOW 

STREAMTUBE 


FLOW 



ANGLE 

ANGLE 

AREA 

RADIUS 

COEFFICIENT 

ROTOR 

INLET 

20.13000 

44.78240 

.00591 

1.73900 

.60873 

ROTOR 

OUTLET 

40.53724 

22.65308 

.00526 

1 . 7660 0 

.64011 

STAGE 

TOTAL 

FRESSURE RATIO AT DE5IGN 

POINT= 1. 

22100 


STAGE 

ADIABATIC EFFICIENCY AT DESIGN 

POINT- 

92530 


ROTOR 

TOTAL 

FRESSURE RAT 

10 AT DESIGN 

FGINT= 1. 

23000 


ROTOR 

AD IAEA 

TIC EFFICIEN 

CY AT DESIGN 

POINT= 

95200 


ROTOR 

TOTAL 

TEMPERATURE 

RATIO AT DESIGN PQINT= 

1.0G311 
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*************** DESIGN POINT INFORMATION ************ *** 



STAGE= 

0 S^WMK 







TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

679.732 

720.259 

5140.325 
6245. 4S5 

646.933 

665.989 

4318. S54 
. 4736.291 

.125 

.133 



AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN COMP 
OF ABS UEL 

TAN COMP 
OF REL UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

587. 19574 
603.39773 

629.60666 

811.0SG76 

833.74045 

G54.G1329 

227.16890 

542.02320 

591.88193 

253.83017 



ROTOR 

SPEED 

AES MACH 
NUMBER 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

REL TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

S19.051 
755. S53 

.506 

.642 

.669 

.518 

704.449 

701.350 

5829.034 

10970.182 



AES FLOW 
ANGLE 

REL FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 

ROTOR 

INLET 

21.15000 

45.22772 

.00511 

1.83600 

.60910 


ROTOR OUTLET 41.S32SS 22.81494 .00467 1.73400 .G2591 

STAGE TOTAL PRESSURE RATIO AT EESIGN POINT= 1.20800 

STAGE ADIAEATIC EFFICIENCY AT EESIGN POINT= .92365 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.21500 

ROTOR ADIAEATIC EFFICIENCY AT DESIGN POINT= .95400 

ROTOR TOTAL TEfiFERATURE RATIO AT DESIGN POINT= 1.05962 
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*************** DESIGN POINT INFORMATION ************ 
********** OUERALL PERFORMANCE AT DESIGN POINT **** 
COMPRESSOR INLET TOTAL TEMPERATURE= 518.70 
COMPRESSOR INLET TOTAL PRESSURE= 211G.80 
CORRECTED MASS FLOW RATE= 3.168 
OUERALL TOTAL PRESSURE RAT I 0=2.5334 
OUERALL TOTAL TEMPERATURE RATI0=1.3SS6 
OUERALL ADIABATIC EFFICIENCY= .5223 


OUERALL TEMPERATURE RISE= 201.555 



1 

2 

3 

4 

5 

6 

BET1SRCI) 

42.03 

41.27 

42.57 

44.23 

44.78 

45.23 

EET2SRC I ) 

31.78 

24.65 

21.98 

22.13 

22.85 

22.81 

AINCSRC I ) 

-.65 

-1.47 

1.25 

1 • 35 

.78 

.16 

ADEUSR(I) 

5.95 

7.48 

5. SB 

8.37 

8.52 

8.33 

EET1SSC I ) 

33.20 

36.52 

38.13 

39.55 

40.54 

41.93 

EET2SSCI) 

21. S9 

19.05 

19.33 

20.18 

21.15 

34.86 

AINCSS(I) 

-1.95 

-3.29 

-5.23 

-5.45 

-5.77 

-6.78 

ADEUSS(I) 

9.70 

7. SB 

S. 52 

8.37 

7.83 

5.53 

TD(I) 

51S.7 

541.1 

566.1 

600.5 

639.4 

679.7 

OMEGS(I) 

.009 

.021 

.025 

.028 

.029 

.024 

OMEGRCI) 

.113 

.018 

.018 

.016 

.004 

.036 


*** 

****** 
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INITIAL FLOW COIFFICIENT= 


500 (STAGE® 1 ) 


■K- 




STAGE TOTAL PRESSURE RATIO® 1.15G72 

STAGE TOTAL TEMPERATURE RATID= 1.04306 
STAGE ADIABATIC EFFICIENCY® .83250 

STAGE FLOW COEFFICIENT® .458 
AXIAL UELOCITY® 477.45 
ROTOR SPEED= S5S.ES 


a 

ROTOR INLET- 

-ROTOR OUTLET- 

•3- STATOR OUTLET* 

TOTAL PRESSURE 

2116. 8000 

2443.5450 

2443.5450 

STATIC PRESSURE 

1833.7412 

2026.0431 


TOTAL TEMPERATURE (GAS) 

51S.70G0 

543.6271 

543.6271 

STATIC TEMPERATURE (GAS) 

45d . c7 oB 

515.0375 


STATIC DEMSITY(GAS) 

.0832 

.0737 


AXIAL UELOCITY 

477.44SG 

470.3117 


ABSOLUTE UELOCITY 

435,7345 

5SS.5545 


RELATIUE UELOCITY 

633.3375 

563 . 5979 


ELADE SPEED 

636.1474 

670.0514 

702.6172 

TAMG. COMP. OF ABS. UEL. 

133.3SS2 

350.5041 


TANG. COMP. OF REL. UEL. 

502.7512 

313.5474 


ACCUSTIC SPEED 

1033.7303 

1112. 03S5 


ABSOLUTE MACH NUMEER 

. 4532 

. 5275 


RELATIUE MACH NUMBER 

.6333 

.5113 


FLOW COEFFICIENT 

. 4380 

.4310 


FLOW AREA 

.0104 

,0033 


AESOLUTE FLOW ANGLE 

15.6100 

35.6957 

21.3300 

RELATIUE FLOW ANGLE 

46.4786 

34.1337 


INCIDENCE 

3.7586 

1 . 5457 


DEUIATION 


3.4437 
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******************** INITIAL FLOW COEFFICIENT 3 .500 (ISTAGE= 1 ) ******************** 

STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT CJPERFM=3) 

STAGE TOTAL PRESSURE RATIO 3 1.15672 

STAGE TOTAL TEMPERATURE RATIO 3 1.04806 
STAGE ADIABATIC EFFICIENCY 3 .88423 

**STAGE INLET** **STAGE OUTLET** **STAGE OUTLET** 


(BEFORE INTER- (AFTER INTER- 
STAGE ADJUST- STAGE ADJUST- 
MENT) MENT) 


XU 3 

.00000 

.00000 

.00000 

xw= 

0 

0 

0 

xww= 

.04000 

.04000 

.04000 

XWT= 

.04000 

.04000 

.04000 

XAIR= 

.36000 

.36000 

.36000 

XMETAN 3 

0 

0 

0 

XGAS 

.36000 

.36000 

.36000 

WMASS 3 

0 

0 

0 

WWMASS 3 

.01431 

.01431 

.01431 

WTMASS 3 

.01431 

.01431 

.01431 

AMASS 3 

.34340 

.34340 

.34340 

CHMAS5 3 

0 

0 

0 

UMASS 3 

.00000 

.00000 

.00000 

GMASS= 

.34340 

.34340 

.34340 

TMASS 3 

.35771 

.35771 

.35771 

WS= 

.00000 

.00000 

.00000 

RHOA= 

.07643 

.07304 

.07106 

RHOM= 

.07160 

.07608 

.08067 

RHOG 3 

.06318 

.07304 

.07745 

TG= 

518.70000 

543.62714 

543.62714 

TW= 

513.70000 

0 

513.70000 

TWW 3 

513.70000 

0 

513.70001 

P= 2116.80000 

2448.54438 

2448.54438 

TB= 

671.40656 

0 

678.60149 

TDEW= 

271.33506 

273.16838 

307.24761 
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********«**«««»«»*«« INITIAL FLOW COEFFICIENT= .500 (STAGE= 2 ) 

STAGE TOTAL PRESSURE RATIO= 1.17973 

STAGE TOTAL TEMPERATURE RATIO= 1.05521 
STAGE ADIABATIC EFFICIENCY= .87441 

STAGE FLOW COEFFICIENT^ .505 
AXIAL UELGCITY= 485.01 
ROTOR SPEED= 359.57 


X 

ROTOR INLET* 

*ROTOR OUTLET* 

*STATOR OUTLET* 

TOTAL PRESSURE 

2443.5450 

2888.7433 

2838.7433 

STATIC PRESSURE 

2108.3989 

2257. G03G 


TOTAL TEMPERATURE ( GAS ) 

543.G271 

573.6432 

573.G432 

STATIC TEMPERATURE (GAS) 

520.92G1 

534.7038 


STATIC DENSITY(GAS) 

.0759 

.0792 


AXIAL UELOCITY 

4S5.0120 

513.G592 


ABSOLUTE UELOCITY 

522.G97S 

G84.G335 


RELATIUE UELOCITY 

702.1G70 

570.8G97 


BLADE SPEED 

702.G172 

701.7250 

732.50G3 

TANG. COMP. OF AES. UEL. 

194.8752 

452.G337 


TANG. COMP. OF REL. UEL. 

507.7420 

249.0912 


ACOUSTIC SPEED 

1118.2885 

1132.9853 


ABSOLUTE MACH NUMBER 

. 4G74 

. G043 


RELATIUE MACH NUMEER 

. G279 

.5039 


FLOW COEFFICIENT 

.5054 

.5385 


FLOW AREA 

.0093 

.0084 


ABSOLUTE FLOW ANGLE 

21.8900 

41.3SG3 

19.0900 

RELATIUE FLOW ANGLE 

46.3116 

25.8704 


INCIDENCE 

3.571G 

1.27G3 


BEUIATION 


8.7004 



**-**»*x**x-*-»******x 
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500 (ISTAGE= 2 ) ******************** 



******************** INITIAL FLOW COEFFICIENT^ . 

STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=3) 

STAGE TOTAL PRESSURE RATIO= 1.17378 

STAGE TOTAL TEMPERATURE RATIO- 1.05521 
STAGE ADIAEATIC EFFICIENCY= .8758G 


-■--STAGE INLET** 


**STfiGE OUTLET** 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 


**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 


xu= 

.00000 

.00000 

.00000 

xu= 

0 

0 

0 

xm= 

.04000 

.04000 

.04000 

XWT= 

.04000 

.04000 

.04000 

XAIR= 

.9GG00 

.SG000 

. 9GOOO 

XMETAN= 

0 

0 

0 

XGAS 

.36000 

. SG000 

.98000 

WHASS= 

0 

0 

0 

UUMASS= 

.01431 

.01431 

.01431 

WTMASS= 

.01431 

.01431 

.01431 

AMASS= 

. 3434*0 

.34340 

.34340 

CHMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

.34340 

.34340 

.34340 

TMASS= 

.35771 

.35771 

.35771 

US= 

.00000 

.00000 

.00000 

RHOA= 

.08442 

.07792 

.08331 

RHOM= 

„ 071G0 

.08116 

.09284 

RHOG= 

.07588 

.07792 

.03894 

TG= 

543.G2714 

573.G4319 

573.84319 

TU= 

513.70000 

0 

513.70000 

r m= 

513.70001 

0 

513.70002 

p= 

244S.E44S8 

23SS.7432G 

2883.7432G 

TE= 

G78.G0149 

0 

638.96120 

TDEU= 

307.24761 

308.94935 

321.39371 
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******************** INITIAL FLOW COEFFICIENT 3 .500 (STAGE 3 3 ) 

STAGE TOTAL PRESSURE RATIO 3 1.22015 

STAGE TOTAL TEMPERATURE RATIO 3 1.06595 
STAGE ADIABATIC EFFICIENCY 3 .88472 

STAGE FLOW COEFFICIENT 3 .523 
AXIAL UELOCITY 3 501. OG 
ROTOR SPEED 3 S58.24 



*ROTOR INLET* 

*ROTOR OUTLET* 

*STATQR OUTLET* 

TOTAL PRESSURE 

2S88.7433 

3524.7140 

3524.7140 

STATIC PRESSURE 

24SG.912G 

2718.3592 


TOTAL TEMPERATURE (GAS) 

573.G432 

Gil. 4751 

Gil. 4751 

STATIC TEMPERATURE (GAS) 

550.3001 

5G7.8G2G 


STATIC DENSITYCGAS) 

.0851 

.0897 


AXIAL UELOCITY 

501.0593 

537.7831 


ABSOLUTE UELOCITY 

530.2182 

724.93G5 


RELATIUE UELOCITY 

750.7GG1 

590.G081 


BLADE SPEED 

732.50G3 

730.2758 

763.1948 

TANG. COMP. OF ABS. UEL 

. 173.4094 

48G.1293 


TANG. COMP. OF REL. UEL 

. 55S.0SG9 

244.14G0 


ACOUSTIC SPEED 

1149. 1717 

11G7.3G52 


ABSOLUTE MACH NUMBER 

. 4E14 

.6210 


RELATIUE MACH NUMBER 

. G533 

.5059 


FLOW COEFFICIENT 

.5229 

. 5S68 


FLOW AREA 

.0080 

.0071 


ABSOLUTE FLOW ANGLE 

19.0S00 

42.1120 

19.3300 

RELATIUE FLOW ANGLE 

48.1335 

24.4174 


INCIDENCE 

6.5135 

-1.2480 


DEVIATION 


11.2974 



******************* 
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******************** INITIAL FLOW COEFFICIENT= .500 ( ISTAGE= 


3 ) ******************** 


& 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT CJPERFM=3) 


STAGE TOTAL PRESSURE RATIO= 1.22015 

STAGE TOTAL TEMPERATURE RATIO= 1.0G595 
STAGE ADIABATIC EFFICIENCY= .88573 



**STAGE INLET-- 1 

**STAGE OUTLET** 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

xu= 

.00000 

.00000 

.00000 

xw= 

0 

0 

0 

xww= 

.04000 

.04000 

.04000 

XWT= 

.04000 

.04000 

.04000 

XAIR= 

. 9G000 

. 9G000 

.96000 

XMETAN= 

0 

0 

0 

XGAS 

. 96000 

.36000 

.36000 

WMASS= 

0 

0 

0 

WWMASS= 

.01431 

.01431 

.01431 

WTMASS= 

.01431 

.01431 

.01431 

AMASS= 

.34340 

.34340 

.34340 

CHMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

.34340 

.34340 

.34340 

TMASS= 

.35771 

.35771 

.35771 

WS= 

.00000 

.00000 

.00000 

RHOA= 

. 0S433 

.08818 

.09354 

RHOM= 

. 07160 

.03185 

.10802 

RHOG= 

.08506 

.08818 

. 10370 

TG= 

573.64318 

611.47514 

611.47514 

TW= 

513.70000 

0 

513.70000 

TWW= 

513.70002 

0 

513.70004 

P= 

2888.74326 

3524.71402 

3524.71402 

TB= 

68G.SE120 

0 

637.29964 

TDEW= 

321. 3387 1 

323.64370 

332.71852 
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INITIAL FLOW COEFFICIENT® 


500 (STAGE® 4 ) ********************** 


STAGE TOTAL PRESSURE RATIO® 1.24003 

STAGE TOTAL TEMPERATURE RATIO® 1.0G975 
STAGE ADIAEATIC EFFICIENCY= .9054S 

STAGE FLOW COEFFICIENT® .528 
AXIAL UELOCITY® 505.84 
ROTOR SPEED® 358.68 



■ROTOR INLET* 

*ROTOR OUTLET* 

*STATOR OUTLET* 

TOTAL PRESSURE 

3524.7140 

4370.7663 

4370. 7GS3 

STATIC PRESSURE 

30E5.3014 

3378. 40GG 


TOTAL TEMPERATURE (GAS) 

SI 1.4751 

654.1230 

654.1230 

STATIC TEMPERATURE (GAS) 

587.6443 

607.3245 


STATIC DENSITY(GAS) 

.0378 

.1042 


AXIAL UELOCITY 

505.8407 

540.1630 


ABSOLUTE UELOCITY 

536.05SB 

746.6944 


RELATIUE UELOCITY 

777.7311 

594.4566 


BLADE SPEED 

7G8.1S4S 

763.7337 

733.0333 

TANG. COUP. OF AES. UEL. 

177.4403 

515.5351 


TANG. COMP. OF REL. UEL. 

520.7545 

248 . 1 336 


ACOUSTIC SPEED 

1187. 1533 

1207.4712 


ABSOLUTE MACH NUMEER 

.4515 

.6184 


RELATIUE MACH NUMEER 

. .6551 

.4923 


FLOW COEFFICIENT 

.5276 

.5703 


FLOW AREA 

.0063 

.0061 


AESOLUTE FLOW ANGLE 

13.3300 

43. S63G 

20.1300 

RELATIUE FLOW ANGLE 

43.4278 

24.6782 


INCIDENCE 

6.5778 

-1.3364 


DEUIATION 


10.9182 
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»»»«»*«»»«»»**»«« INITIAL FLOW COEFFICIENT= .500 (ISTAGE= 

STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=3) 

STAGE TOTAL PRESSURE RATIO= 1.24003 

STAGE TOTAL TEMPERATURE RATIO= 1.0G975 
STAGE ADIAEATIC EFFICIENCY= .9053S 


4 ) 


**STAGE INLET** 


-STAGE OUTLET** 
(EEFORE INTER- 
STAGE ADJUST- 
MENT) 


-STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 


xu= 

.00000 

.00000 

.00000 

xw= 

0 

0 

0 

xww= 

.04000 

.04000 

.04000 

XUT= 

.04000 

.04000 

.04000 

XAIR= 

. SG000 

. 9G000 

. 9S000 

XMETAN= 

0 

0 

0 

XGAS 

. SGOOO 

. SGOOO 

. SGOOO 

WMASS= 

0 

0 

0 

WWMASS= 

.01431 

.01431 

.01431 

WTMASS= 

.01431 

.01431 

.01431 

AMASS= 

.34340 

.34340 

.34340 

CHMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

.34340 

.34340 

.34340 

TMASS= 

.35771 

.35771 

.35771 

WS= 

.00000 

.00000 

.00000 

RHOA= 

.10804 

.10243 

.11841 

RHOM= 

. 071GO 

.10EGS 

. 12G84 

RHOG= 

.09779 

.10243 

. 12178 

TG= 

Gil. 47514 

G54. 12304 

G54. 12303 

TW= 

513.70000 

0 

513.70000 

TWW= 

513.70004 

0 

513.70008 

P= 

3524.71402 

4370.7GG30 

4370 . 7GG30 

TE= 

G97.2S3G4 

0 

708.833G9 

TDEW= 

332.71852 

335.32202 

342.89517 
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******************** INITIAL FLOW COEFFICIENT^ .500 CSTAGE= 5 ) 

STAGE TOTAL PRESSURE RATIO= 1.23254 

STAGE TOTAL TEMPERATURE RATIO= 1.06806 
STAGE ADIABATIC EFFICIENCY= .89328 

STAGE FLOW COEFFICIENT= .531 
AXIAL UELOCITY= 509.08 
ROTOR SPEED= 958. SS 



*ROTOR INLET* 

*ROTOR OUTLET* 

*STATOR OUTLET* 

TOTAL PRESSURE 

4370.7663 

5387.1456 

5387.1456 

STATIC PRESSURE 

3824. 4B32 

4211.8613 


TOTAL TEMPERATURE (GAS) 

654.1230 

698.6417 

698.6417 

STATIC TEMPERATURE (GAS) 

629.7729 

651.5103 


STATIC DENSITY(GAS) 

.1138 

.1212 


AXIAL UELOCITY 

509.0775 

536.3520 


ABSOLUTE UELOCITY 

542.3718 

755.0109 


RELATIUE UELOCITY 

795.2725 

534.5041 


BLADE SPEED 

798.0839 

787.8235 

819.0509 

TANG. COMP. OF ABS. UEL 

. 187.1023 

531 .3S31 


TANG. COMP. OF REL. UEL 

. 610.9816 

2 56.4404 


ACOUSTIC SPEED 

1228.4506 

1249.4716 


ABSOLUTE MACH NUMBER 

.4415 

.6043 


RELATIUE MACH NUMEER 

.6474 

.4753 


FLOW COEFFICIENT 

.5310 

. 5G77 


FLOW AREA 

.0059 

.0053 


ABSOLUTE FLOW ANGLE 

20.1800 

44.7334 

21.1500 

RELATIUE FLOW ANGLE 

50.1985 

25.5534 


INCIDENCE 

6.1985 

-1.5766 


DEUIATION 


11.2234 



******************* 
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»««»»«*««»««****«*» INITIAL FLOW COEFFICIENT= .500 ( ISTAGE= 5 ) 
STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=3) 


STAGE TOTAL PRESSURE RATIO= 1.23254 

STAGE TOTAL TEMPERATURE RATIO= 1 . 0G80G 
STAGE ADIABATIC EFFICIENCY= .89922 



**STAGE INLET** 

**STAGE OUTLET** 
CEEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET*- 
CAFTER INTER- 
STAGE ADJUST- 
MENT) 

xu= 

.00000 

.00000 

.00000 

xw= 

0 

0 

0 

xww= 

.04000 

.04000 

0 

XWT= 

.04000 

.04000 

0 

XAIR= 

. S6000 

.36000 

1.00000 

XMETAN= 

0 

0 

1 

XGAS 

•9GOOO 

.SG000 

1.00000 

WMASS= 

0 

0 

0 

WWMASS= 

.01431 

.01431 

1 

UTMASS= 

.01431 

.01431 

1 

AMASS= 

.34342 

. 34342 

.34342 

CHMASS= 

0 

0 

i 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

.34340 

.34340 

.34342 

TMASS= 

.35771 

.35771 

.34342 

WS= 

.00000 

.00000 

.00000 

RHOA= 

. 12524 

.11937 

. 14183 

RHOM= 

.07160 

.12434 

.14183 

RHOG= 

.11385 

.11937 

.14183 

TG= 

G54. 12303 

G98.G4174 

G93.G4174 

TW= 

513.70000 

0 

0 

TWW= 

513.70008 

0 

513.70008 

P= 

4370 . 7GG30 

5387. 14558 

5337.14558 

TB= 

708.833G9 

0 

723.33915 

TDEW= 

342.8S517 

335.97580 

335.97580 


it*************"****** 
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xy. y y. y.y.y. y.y y. y 


INITIAL FLOW COEFFICIENT= 


.500 (STAGE= G ) 


STAGE TOTAL PRESSURE 

: RATIO= 

1.22195 

STAGE TOTAL TEN PER AT 

URE RATIO= 

1.06404 

STAGE ADIABATIC EFFICIENCY= 

.91275 

STAGE FLOW CGEFFICIENT= .530 


AXIAL UELOCITY= 507. 
ROTOR SPEED= S57.7S 

49 


y 

■ROTOR INLET* 

-ROTOR OUTLET' 

TOTAL PRESSURE 

5387.1456 

6582. 80S0 

STATIC PRESSURE 

4750. 8SS2 

5234.7740 

TOTAL TEMPERATURE (GAS) 

GSS.G417 

743.3858 

STATIC TEMPERATURE (GAS) 

674. 1SEG 

GSS.70G8 

STATIC DENSITY (GAS) 

.1321 

.1409 

AXIAL UELOCITY 

507.4SG5 

520.7245 

ABSOLUTE UELOCITY 

544.1403 

752.4057 

RELATIUE UELOCITY 

E03.31S2 

578.8237 

BLADE SPEED 

SIS. 0509 

795.3534 

TANG. COMP. OF ABS. UEL. 

1S6.3317 

543.1026 

TANG. COMP. GF REL. UEL. 

622. 7 I £2 

252.7503 

ACOUSTIC SPEED 

1270.3492 

1291.3883 

ABSOLUTE MACH NUMBER 

.4283 

.5826 

RELATIUE MACH NUMBER 

. 6324 

.4482 

FLOW COEFFICIENT 

.5299 

.5558 

FLOW AREA 

.0051 

.0047 

ABSOLUTE FLOW ANGLE 

21.1500 

46.2051 

RELATIUE FLOW ANGLE 

50.S21G 

25.8911 

INCIDENCE 

5.7516 

-2.5049 

DEUIATION 


11.4611 


*STATQR OUTLET* 
6532.8080 

743.3358 


.5000 


0 


it****************** 
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INITIAL FLOW COEFFICIENT= -500 ( ISTAGE= 


5 ) « *-*-*-*: **#***#*•*■**«•*** 




STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT C JPERFM=2 ) 

STAGE TOTAL PRESSURE RAT 10= 1.22135 

STAGE TOTAL TEMPERATURE RATIO- 1.0G404 
STAGE ADIABATIC EFFICIENCY= .91223 



-■-■STAGE INLET** 

--STAGE OUTLET** 
CEEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

xu= 

.00000 

.00000 

.00000 

xw= 

C 

0 

0 

XRU= 

0 

0 

0 

XUT= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XI1ETAN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

UIMASS= 

0 

0 

0 

WWMASS= 

0 

0 

0 

WTMASS* 

0 

0 

0 

AMASS= 

.34342 

.34342 

.34342 

CHMASS* 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMA5S= 

. 34342 

.34342 

.34342 

TMASS= 

. 34342 

. 34342 

.34342 

us= 

.00000 

.00000 

.00000 

RHOA= 

. 14453 

. 140G1 

. 1G408 

RHOM= 

.07180 

. 140G1 

. 1G408 

RHOG= 

.13211 

. 140G1 

. 1S408 

TG= 

GS8.G4174 

743.38580 

743.38530 

TU= 

0 

0 

0 

TU!W= 

513.7000S 

0 

513.70008 

P= 

5387. 14558 

G582.S0S01 

G582. 80801 

TE= 

723.33S15 

0 

735. 58S38 

TDEW= 

335.37580 

338.59428 

333.59428 
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********** OVERALL PERFORMANCE ********* 

INITIAL FLOW COEFFICIENT= .50 

CORRECTED SFEED=51i20. 0 1.000 FRACTION OF DEIGN CORRECTED SPEED 

INITIAL WATER CONTENT (SMALL DROPLET ) = 0 

INITIAL WATER CONTENT (LARGE DROPLET )= .040 
INITIAL WATER CONTENT ( TOTAL ) = .040 
INITIAL RELATIUE HUMIDITY* .0 PER CENT 
INITIAL METHANE CONTENT* 0 

COMPRESSOR INLET TOTAL TEMPERATURE* 518.70 

COMPRESSOR INLET TOTAL PRESSURE* 211G.S0 

CORRECTED MASS FLOW RATE OF MIXTURE* .358C 3.018) 

CORRECTED MASS FLOW RATE OF GAS PHASE .343C 2.897) 

OUERALL TOTAL PRESSURE RATIO=3.10S3 

OUERALL TOTAL TEMPERATURE RATI0=1.4332 

OUERALL ADIABATIC EFFICIENCY* .8790 

OUERALL TEMPERATURE RISE OF GAS PHASE* 224. GSS 
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APPENDIX 4 


PROGRAM SOURCE LIST 


c 

PROGRAM MAIM (INPUT, OUTPUT, TAPE5=INPUT, TAPEG=OUTPUT) 


C ++++++++++++++++++++++++++++++++++++++++++++++-&'++++++++++++•?-++++++++ 

C PROGRAM NASA-WISGSK 

C+‘S*'r++++++ + + 4 , +++ + r-H-++++T J r++++‘t'++T+* , r++++++++++++++++++rf^^ +-S r ! ++++++ ++++4' 

C ABSTRACT: 

C THIS PROGRAM CODE HAS BEEN PRODUCED FOR THE STUDY OF THE AXIAL FLOW 
C COMPRESSOR PERFORMANCE FOR THE GAS-HATER DROPLET MIXTURE FLOW. 

C THE MIXTURE CONSISTS OF TWO TYPES OF DROPLET SIZES AND THREE 
C KINDS OF GASEOUS PHASES. THIS PROGRAM CODE IS WRITTEN ESPECIALLY 
C FOR AIR-J-WATER UAPOR+METHANE+SMALL DROPLET+LARGE DROPLET. 

C THIS FORTRAN COMPUTER CODE CAN PREDICT THE DESIGN AND OFF-DESIGN 
C PERFORMANCE OF AXIAL FLOW COMPRESSOR. STAGE AND OUERALL PERFORMANCE 
C ARE OBTAINED BY A STAGE-EY-STAGE CALCULATION. 

£ +-r + -J--r ++ + ++++++ + + +- r 4- ++++++ ++ + ++++ +++++++ +++ ++ + + + + ++++++++ +++++++++++++ 

C +++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++ 


REAL ND. NU> KA. M» MMASS, MMASS1 
REAL MMASSO 

COMMON /PERDUE/ JPERFM, RH0GC3) , RERUP, RERLOW, RESUP, RESLOU 
X, PREB, RRTIP ( 8 ) , SRTIP ( 8 ) , AAAI , AAA2, AAA3, SAREA ( G ) , SAREA3 ( 7 ) 

X, P(3) » TG( 3 ) , XA, XUC3) » XCH4, XWC3 ) , XWWC 3 ) , XWT ( 3 ) > TW ( 3 ) » TWW(3) 

X , OMEGS (7), OMEGR ( G ) , GAPR (6) » GAPS ( G ) 

X, RRHUBCG) , RCCG) , RBLADE(G) , STAGER (G) 

X, SRHUEC7) , SC (7) , SBLADEC7) , STAGESC7) 

X, SIGUMRC6) , BETISR(G) , BETESR(G) , AINCSR(G) , ADEUSR(G) 

X, SIGUMSC7) , BET1SSC7) , BET2SSC7) , AINCSSC7) , ADEUSSC7) 

X, UTIPG(6)»UTIP(G)»UTIPD(6),UCU(6)» UMEAN(G) , UHUB(6) » U(G) , FAI 
X, AREA(G) , AREA5C7) , UU2CG) , UTIP2C6) » UMEAN2C6) » UHUB2CG) , I PRINT 
X, I CENT , I ICENT , FMR1 (G) » FMA2CG ) , I RAD, FA ID 
X, NS » NS 1 » RT ( 6 ) » RM ( 6 ) » RH ( G ) » ST ( G ) » SM ( G ) » SH ( S ) 

X , DSMASS, AARE A ( 7 ) , AAREAS ( 7 ) , PR 1 2D ( G ) , PR 1 3D ( G ) , ET ARD ( G ) 

X, DR ( G ) , DS ( G ) * DEQR ( E ) » DEQS ( G ) , BLOCK ( G ) * BLOCKS ( 7 ) 

X, BET1MRCG ) , EET2MR( G) , BET1MS (7 ) , BET2MS (7 ) , RADII (6) , RADI2CG) 

COMMON /UECTOR/ CPCO(G), TITLEC 12) , RT2(12), RH2(12), RT3C12), 
XRH3C12), PHIREFU2). PSIREF ( 12) , ETAREF ( 12) , PHIDES( 12, 9,8), 
XPSIDESC 12, S, 8) , ETADESC 12,9, 8) , PHI(12,S,8), PSI ( 12, 3, 8 ) , ETA(12,9 
X, 8 ) , DPHIAC 12) , DPSIAC12), BETAC12), NSTAGEC 12) , PCTSPDCS), 

XBET2MC 12,9), BLEED(12,9), TT(13), PTC 13) , PRC 12 ) , TRC12), PR0C12), 
XTR0C12), ETA0C12), BET3MRC 12, 9) , UZ2MC12,9), UZ3M(12,9), AREA2C 12) 
X, AREA3C 12) , RM2C12), RM3C12), UT2C12), UT3C12), UM2C12), UM3C12) 
X, BAT2MRC 12,9), DPSISC 12,9),RS0LM(12), RK2MC12), CB2MC12), CB2MRC 

X12) , CB3MRC 12) , RINCMC 12) , RDFMC12), SK2MC12), SINCMC 12) , BET3MC 12 
X, 9) , PHIFIXC 12) , DPHIF ( 12 ) , CPREF C 12 ) , GF1REFC 12) , ETAINPC 12) 

X, FLOCALC 12,9), ETARATC9), DB2M(12,9), DB2MRC 12, 9) , DB3MC 12, 9) , DB3MR 
XC 12, 9) , B2MB3RC 12, 9) , SPEEDF, FLOWIN, U3DU2RC 12) , U2U3C 12) , DB3MRGC 12) 

X, DB3MRNC 12, 9) , DB3MRPC 12, 8), CPCM(G) , CPCSCG) 

■*, RK3MC 12) , RDEUC 12 ) , RDEFC 12) , GMREF ( 12 ) 

*,PSID1C 12,2,8),PSID2C12,2,8),PSID3( 12, 2, 8) , PSID4C 12, 2, 8) , 

* PS I D5 (12, 2, 8), PS 11(12,2, 8), PS 12(12, 2, 8), PS 13(12,2,8) 
*,PSI4(12,2,8),PSI5(12,2,8) 

*»PSID1L(12,2,8)» PSID2LC 12, 2, 8) , PSID3LC 12,2,8) 

*, PSID4LC 12,2,8), PSID5LC 12,2,8),PSI1L(12,2,8) 
*,PSI2L(12,2,8),PSI3L(12,2,8),PSI4L(12,2,8),PSI5L(12,2,8) 

COMMON /SCALER/ RU, PI, G, AJ, RAD, RG, DCP, GJ, G2J, RPMRAD, NSTA 
X, NSPE, NPTS, PO, TO, DESRPM, DESFLO, UNITS 

X, CP, GAMMA, GM1, GF1 , GF2, GF3, SPDPSI , SPDPHI , DRDEUG, DRDEUN, DRDEUP 
X, XAR, XMET , XSTM 
X, STAGEN, SPEEDN, CHAPTS, WTMOLE 
DIMENSION DC20, 3) , XD(20,3) , XXD(20,3), 

, WS ( 3 ) , WMASS ( 3 ) , UMASS ( 3 ) , RHOA ( 3 ) , RHDM (3)»TB(3) 

DIMENSION TD ( G ) , DELZ ( G ) , ET AA ( G ) 

DIMENSION XXA ( 3 ) , XXU ( 3 ) , DAUE ( 20 ) 

DIMENSION TDEWC3) 

DIMENSION DDAUE ( 20 ) , WWMASSC 3 ) , WTMASSC3 ) 

DIMENSION TMASSC3) , GMASS(3) , XAIRC3) , XMETANC3) , XGASC3), FAISTL(G) 
DIMENSION XBLEED(G) 

DATA NSTAGE/1,2,3,4,5,G,7,8,9, 10, 11, 12/, RU/1545.44/, PI/3. 141592 

17/, G/32.1740/, AJ/778.12/, RAD/57.29578/ 


C +++++++++++-H-++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 


1 

2 

3 

4 

5 
G 

7 

8 
9 

10 

11 

12 

13 

14 

15 
1G 

17 

18 
IS 
20 
21 
22 

23 

24 

25 
2S 

27 

28 

29 

30 

31 

32 

33 

34 

35 
3G 

37 

38 

39 

40 

41 

42 

43 

44 

45 
4G 

47 

48 

49 

50 

51 

52 

53 

54 

55 
5G 

57 

58 

59 
GO 
61 
G2 
G3 
G4 
G5 
GG 
G7 
GS 
G9 
70 


173 



non 


INPUT DATA 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NS 

RRHUB(I) 

RC(I) 

RBLADEC I ) 

STAGER (I ) 

SRHUB(I) 

SC(I) 

SBLADE(I) 

SIGUMRCI) 

FNF 

XDIN 
XDDIN 
I CENT 

I I CENT 

TOG 

TOW 

PO 

DIN 

DDIN 

FND 

TOID 

POID 

XCH4 

RHUMID 

FMWA 

FMWU 

FMWC 

PREB 

DLIMIT 

STAGES(I) 

GAPR(I) 

GAPS(I) 

XBLEEDC I ) 
RRTIP(I) 
SRTIPCI) 
IRAD 


RT( I ) 


RM( I ) 


RH( I ) 

ST( I) 

SMC I) 

SH(I) 

BLOCK C I ) 
BLOCKS ( I ) 
BET1MRC I) 
BET2MR( I) 
EET1MSC I) 
BET2MSC I ) 
DSNASS 
PR12DCI) 
PR13DCI) 


NUMBER OF STAGE 

ROTOR INLET RUDIUS AT HUB FOR I-TH STAGE IN INCH 
ROTOR CHORD FOR I-TH STAGE IN INCH 
NUMBER OF ROTOR BLADE FOR I-TH STAGE 
ROTOR STAGER ANGLE FOR I-TH STAGE IN DEGREE. 

STATOR INLET RUDIUS AT HUB FOR I-TH STAGE IN INCH 
STATOR CHORD FOR I-TH STAGE IN INCHC I=NS+1* IGU) 

NUMBER OF STATOR BLADE FOR I~TH STAGE (I=NS+1,IGU) 
SOLIDITY OF ROTOR FOR I-TH STAGE 

FRACTION OF DESIGN CORRECTED ROTOR SPEED FOR A PARTICULAR 
SPEED 

INITIAL WATER CONTENT (MASS FRACTION) OF SMALL DROPLET 
INITIAL WATER CONTENT (MASS FRACTION) OF DARGE DROPLET 
INDEX FOR CENTRIFUGAL CALCULATION (ICENT=1 WHEN XDIN=0 
OTHERWISE ICENT=2) 

SAME AS I CENT 

TOTAL TEMPERATURE AT COMPRESSR INLET IN RANKIN 
WATER DROPLET TEMPERATURE AT COMPRESSOR INLET IN RANKIN 
TOTAL PRESSURE AT COMPRESSOR INLET IN LB/FT**2 
INITIAL WATER DROPLET DIAMETER IN MICRONCSMALL DROLLET) 
INITIAL WATER DROPLET DIAMETER IN MICRON (LARGE DROPLET) 
ROTOR ROTATIONAL SPEED AT DESIGN SPEED IN RPM 
DESIGN UALUE FOR COMPRESSOR INLET TOTAL TEMPERATURE 
IN RANKIN 

DESIGN UALUE FOR COMPRESSOR INLET TOTAL PRESSURE 
IN LB/FT**2 

INITIAL METHANE CONTENT (MASS FRACTION) 

INITIAL RELATIUE HUMIDITY(PER CENT) 

MOLECOLAR WEIGHT OF AIR 
MOLECULAR WEIGHT OF WATER UAPOR 
MOLECULAR WEIGHT OF METHANE 

PERCENT OF WATER THAT REBOUND AFTER IMPINGEMENT 
MAX. DIAMETER FOR SMALL DROPLET IN MICRON 
STATOR STAGER ANGLE FOR I-TH STAGE IN DEGREE 
GAP BETWEEN I TH STAGE ROTOR AND 1-1 TH STAGE STATOR 
IN INCH 

GAP BETWEEN I TH STAGE STATOR AND 1-1 TH STAGE ROTOR 
IN INCH 

AMOUNT OF BLEED AT I-TH STAGE OUTLET 
ROTOR INLET TIP RADIUS FOR I-TH STAGE IN INCH 
STATOR INLET TIP RADIUS FOR I-TH STAGE IN INCH 
INDEX FOR RADIUS AT WHICH CALCULATION IS CARRIED OUT 
IRAD=l: TIP 
IRAD=2: MEAN 
IRAD=3: HUB 

RADIUS AT ROTOR INLET WHERE PERFORMANCE CALCULATION 
IS CARRIED OUT WHEN IRAD=1,IN INCH 

RADIUS AT ROTOR INLET WHERE PERFORMANCE CALCULATION 
IS CARRIED OUT WHEN IRAD=2» IN INCH 
RADIUS AT ROTOR INLET WHERE PERFORMANCE CALCULATION 
IS CARRIED OUT WHEN IRAD=3» IN INCH 

RADIUS AT ROTOR OUTLET WHERE PERFORMANCE CALCULATION 
IS CARRIED OUT WHEN IRAD=1,IN INCH 

RADIUS AT ROTOR OUTLET WHERE PERFORMANCE CALCULATION 
IS CARRIED OUT WHEN IRAD=2> IN INCH 

RADIUS AT ROTOR OUTLET WHERE PERFORMANCE CALCULATION 
IS CARRIED OUT WHEN IRAD=3, IN INCH 
BLOCKAGE FACTOR FOR ROTOR 
BLOCKAGE FACTOR FOR STATOR 

BLADE METAL ANGLE AT ROTOR INLET FOR I-TH STAGE IN DEG 
BLADE METAL ANGLE AT ROTOR OUTLET FOR I-TH STAGE IN DEG 
BLADE METAL ANGLE AT STATOR INLET FOR I-TH STAGE IN DEG 
BLADE METAL ANGLE AT STATOR OUTLET FOR I-TH STAGE IN DEG 
DESIGN MASS FLOW RATE (LB/SEC) 

DESIGN TOTAL PRESSURE RATIO FOR I-TH STAGE ROTOR 
DESIGN TOTAL PRESSURE RATIO FOR I-TH STAGE 


MAIN 

71 

MAIN 

72 

MAIN 

73 

MAIN 

74 

MAIN 

75 

MAIN 

7S 

MAIN 

77 

MAIN 

78 

MAIN 

79 

MAIN 

80 

MAIN 

81 

MAIN 

82 

MAIN 

83 

MAIN 

84 

MAIN 

85 

MAIN 

86 

MAIN 

87 

MAIN 

88 

MAIN 

89 

MAIN 

90 

MAIN 

91 

MAIN 

92 

MAIN 

93 

MAIN 

94 

MAIN 

95 

MAIN 

96 

MAIN 

97 

MAIN 

98 

MAIN 

99 

MAIN 

100 

MAIN 

101 

MAIN 

102 

MAIN 

103 

MAIN 

104 

MAIN 

105 

MAIN 

106 

MAIN 

107 

MAIN 

108 

MAIN 

109 

MAIN 

110 

MAIN 

111 

MAIN 

112 

MAIN 

113 

MAIN 

114 

MAIN 

115 

MAIN 

116 

MAIN 

117 

MAIN 

118 

MAIN 

119 

MAIN 

120 

MAIN 

121 

MAIN 

122 

MAIN 

123 

MAIN 

124 

MAIN 

125 

MAIN 

126 

MAIN 

127 

MAIN 

128 

MAIN 

129 

MAIN 

130 

MAIN 

131 

MAIN 

132 

MAIN 

133 

MAIN 

134 

MAIN 

135 

MAIN 

136 

MAIN 

137 

MAIN 

138 

MAIN 

139 

MAIN 

140 
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nnn 


ETARDCI) DESIGN ADIAEATIC EFFICIENCY FDR I-TH STAGE ROTOR 
SAREA(I) STREAM TUEE AREA AT I-TH STAGE ROTOR INLET IN FT**2 

SARtAS(I) STREAM TUEE AREA AT I-TH STAGE STATOR INLET IN FT**2 

CALCULATION 

XELEEB(I) BLEED C MASS FRACTION) 


— i — 8 — !■ “i — ■ — S — t - “4 — ? — I — I- 


r *r tTTT ~c "»* 


J r 4* -S' + + + + -r + *1* ++ + 4- + + + + + + + +-}■ + -M-+ + ++ +++++ + + 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


c 

READ INPUT DATA C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
READ C 5, 39) NS 
S3 FORMAT (ID 
IS51=NS+1 

READ(59 100 ) (RRHUBCI), 1=1, NS) 

100 FORMAT CBF5.3) 

READC5, HDCRCCI), 1=1, NS) 

111 FORMAT (GF5. 3) 

READC5, 112) CRBLADEC I)»I=1»NS) 

112 FORMAT (GF5. 2) 

READ (5, 113) ( STAGER ( I ) ,1=1, NS) 

113 FORMAT (GF5. 2) 

READ (5, 114)CSRHUB(I), 1=1,7) 

114 FORMAT (7F5.3) 

READ (5, 115) CSCCI), 1=1,7) 

115 FORMAT (7F5. 3) 

READC5, 116) (SBLADECI), 1=1,7) 

11G FORMAT (7F5. 2) 

READ(5, 117) ( SIGUMR (I), 1=1, NS) 

117 FORMAT (GF5. 3) 

READ ( 5, 122 ) ( SI GUMS ( I ) , 1=1, NS1) 

122 FORMAT ( 7F5 .3) 

READ(5» 124) CBET2SSC I ) , 1=1, NS1 ) 

124 FORMAT (7F5. 2) 

READC5» 127) FNF 
127 FORMAT (F8.2) 

READ (5, 128) XDIN, I CENT * XDDIN> 1 1 CENT 

123 FORM AT (F5. 3, I1»F5„3» ID 
READC5? 123) TOG, TON, PO 

123 FORMAT (3F7.2) 

READC5, 130) DIN, DDIN 
130 FORMAT ( 2FG. 1 ) 

READC5, 132) FND, T01D, P01D 

132 FORMAT ( F7 . 1 , 2F7 . 2 ) 

READC5, 133) XCH4,RHUMID 

133 FORMAT (F5.3,F10.5) 

READC5, 134) FMNA, FMNU, FMNC 

134 FORMAT C3F7. 3) 

READC5, 135) PREB, DLIMIT 

135 FORMAT CF5. 1 , F7. 1 ) 

READ( 5, 140 ) ( STAGES ( I), 1=1, NS 1) 

140 FORMAT (7F5. 2) 

READC5, 141 ) (GAPR( I )» 1=1, NS) 

141 FORMAT CGF7. 5) 

READC5, 142) ( GAPSC I ) , 1=1, NS) 

142 FORMAT (GF7.5) 

READC5, 14G) (RRTIP(I), 1=1, NS) 

14G FORMAT (GFG. 3 ) 

READ( 5, 147) (SRTIPC I ) , 1=1, NS1 ) 

147 FORMAT (7FG. 3) 

READ( 5, 1491 ) IRAD 

1491 FORMAT C II ) 

READ(5» 1492) CRT( I) , 1=1, NS) 

1492 FORMAT (GF5.3) 

READC5, 1433) C RM C I ) , 1=1, NS) 

1493 FORMAT CGF5.3) 

READC5, 1494) (RHC I ) , 1=1, NS) 

1494 FORMAT (GF5.3) 

READC5, 1495) C STC I ) , 1=1 , NS ) 

1495 FORMAT (GF5. 3) 
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READC5, 149G) (SMCI ) , 1=1, NS) MAIN 

149G FORMAT (GF5.3) MAIN 

READC5, 1497) (SHC I ) , 1=1, NS) MAIN 

1497 F0RMATC6F5.3) MAIN 

READ(5» 1498) ( BLOCKC I ) , 1=1 , NS) MAIN 

1498 F0RMATC6F5.3) MAIN 

READ (5, 1499) (BLOCKSCI), 1=1, NS1) MAIN 

1499 FORMAT C7F5.3) MAIN 

READC5, 1502) (BET1MRCI), 1=1, NS) MAIN 

1502 F0RMATC6F5.2) MAIN 

READC5, 1503) ( BET2MRC I ) , 1=1, NS) MAIN 

1503 FORMAT (6F5. 2) MAIN 

READC5, 1504) (BET1MSCI), 1=1, NS1) MAIN 

1504 F0RMATC7F5. 2) MAIN 

READC5, 1505) (BET2MS( I ) * 1=1 , NS1 ) MAIN 

1505 FORMAT C7F5.2) MAIN 

READC5, 150G) DSMASS MAIN 

150G FORMAT (FI 0.6) MAIN 

READ(5» 1507) (PR12DCI), 1=1* NS) MAIN 

1507 FORMATCGF5. 3) MAIN 

READC5.1508) (PR13DC I ) , 1=1 , NS) MAIN 

1508 FORMAT (GF5. 3) MAIN 

READC5, 1509) CETARDC I ) , 1=1 » NS) MAIN 

1509 FORMAT CGF5. 3) MAIN 

READ(5» 151 1 ) (SAREACI), 1=1 » NS) MAIN 

1511 FORMAT CGF10 .7) MAIN 

READC5, 1512) (SAREASC I ) , 1=1, NS1 ) MAIN 

1512 FORMATC7F10.7) MAIN 

READC5, 1513) (XBLEEDC I ) , 1=1, NS) MAIN 

1513 F0RMATCGF5.2) ++++++++++++++++ 

C OTHER INPUT DATA MAIN 

FNFN=FNF*100. 0 MAIN 

WKDONE=l . 0 MAIN 

IPRINT=1 MAIN 

DO 1530 1=1, NS MAIN 

FMR1 ( I )=0 . G MAIN 

FMA2( I )=0 . G MAIN 

1530 CONTINUE MAIN 

AK1=1. 0 MAIN 

AK2=0. 0 MAIN 

AK3=0. 0 MAIN 

AAAIGU=SAREA( 1 ) MAIN 

RU=1545. 3 MAIN 

RH0W=G2.54 MAIN 

CPW=1.0 MAIN 

RA=RU/FMNA MAIN 

RU=RU/FMUU MAIN 

RCH=RU/FMWC MAIN 

DELU=0 . 0 MAIN 

DELUU2=10. 0 MAIN 

DELUL2=10 . 0 MAIN 

REAUE=0 . 0 MAIN 

GC=32„ 174 MAIN 

AJ=778.1G MAIN 

PAI=3. 141592G MAIN 

DO 150 1=1, NS MAIN 

A ARE A Cl ) =PA I * C C RRT I P ( I ) /1 2 . 0 ) **2- ( RRHUB ( I ) / 1 2 . 0 ) **2 ) *BLOCK ( I ) MAIN 

AAREAS ( I )=PAI* C SRTI P C I ) **2-SRHUB ( I )**2)/144. 0*BLOCKS ( I ) MAIN 

DELZC I )=(RCC I )+SC( I ) )/12. 0 MAIN 

150 CONTINUE MAIN 

NS1=NS+1 MAIN 

AAREAS CNS1 )=PAI*CSRTIP(NS1 )**2-SRHUBCNSl )**2)/144. 0*BLOCKS(NS1 ) MAIN 

AAAR1T=AAREA( 1 ) MAIN 

DO 152 1=1, NS MAIN 

AREA ( I ) =SAREA ( I ) MAIN 

AREAS ( I ) =SAREAS ( I ) MAIN 

152 CONTINUE MAIN 

AREASCNSi )=SAREAS(NS1 ) MAIN 

FN=FND*FNF«-SQRT ( TOG/518.7) MAIN 
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n n r> 


□T01G=T0G 
OT01D=TOW 
□P01=P0 
CRPM=FNF*FND 
DO 151 1=1, MS 

UTIPC I )=RT(I )/12. 0*2. 0*PAI*FND/G0.0 
UTIPGC I )=RRTIPC I V12. 0*2. 0*PAI*FND/G0. 0 
UTIP2C I )=STC I )/12. 0*2. 0*PAI*FND/G0. 0 
UTIPDC I )=RTC I )/12. 0*2.0*PAI*FND/G0 . 0 
UOUC I )=(UTIPC I ) /UTIPDC I ) )**2 
UMEANC I )=RMC I )/12. 0*2.0*PAI*FND/G0. 0 
UMEAN2 C I ) =SM C I) / 12 . 0*2. 0*PAI*FND/60 . 0 
UHUB C I ) =RH ( I ) / 12 . 0*2 . 0*P AI*FND/60 . 0 
UHUB2C I )=SHC I )/12. 0*2. 0*PAI*FND/G0. 0 
IF(IRAD.EO.l) UCI)=UTIP(I) 

IF C IRAD. EO. 2 ) UCI)=UMEAN(I) 

IFCIRAD.EQ.3) UCI)=UHUBCI) 

IF ( IRAD.EQ. 1 ) UU2C I )=UTIP2C I ) 

IF(IRAD.EQ.2) UU2C I )=UMEAN2CI ) 

IF C IRAD. E0.3) UU2( I )=UHUB2C I ) 

IF ( IRAD.EQ. 1 ) RADI 1(1 )=RT (I) 

IF ( IRAD.EQ. 1 ) RADI2C I )=ST ( I ) 

IF( IRAD.EQ. 2) RADI 1 C I )=RMC I ) 

IF C IRAD.EQ. 2) RADI2C I )=SM( I ) 

IF ( IRAD. EQ. 3) RADI 1 ( I)=RHC I ) 

IFCIRAD.EQ.3) RADI2C I )=SH( I ) 

151 CONTINUE 

C +++ + +++++++++++ + + + + + + + + + + + + + + + + + +++++++ + +++++++++++++++-r+++++ + 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

PRINT OUT OF INPUT DATA 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

WRITECG? 1G00 ) 

1G00 FORMATC 1H1 » 5X» ****************************** INPUT DATA ********** 
$***«*•***$£•*#*■ -»**-%*#«****•*##•>;••«•;£ ) 

WRITECG, 1G10) NS 

1G10 FORMAT ( 1H0, IX, ^NSCNUMBER OF STAGE)=*,I2) 

IFCIUNIT.EO. 1) WRITECG, 1G01) 

1G01 FORMAT C 1H , IX, ?*UNIT=ENGLISH UNIT*) 

IFCIUNIT.EO. 2) WRITECG, 1G02) 

1S02 FORMAT C 1H , IX, ?4JNIT=METRIC UNIT*) 

WRITECG, 1G03) IPERFM 
1G03 FORMAT C 1H , IX, ^IPERFM=^» ID 
IF C IRAD.EQ. 1 ) WRITECG, 1604) 

1G04 FORMAT C 1H , IX, ^PERFORMANCE AT TIP^) 

IF C IRAD. EQ. 2) WRITECG, 1G05) 

1G05 FORMAT C 1H , IX, ^PERFORMANCE AT MEAN*) 

IFCIRAD.EQ.3) WRITECG, 1G0G) 

1G0G FORMAT C 1H , IX, ^PERFORMANCE AT HUB*) 

WRITECG, 1G20) 

1G20 FORMAT C 1H0, 14X, *1*, 5X, *2*, 5X, *3*, 5X, *4*, 5X, *5*, 5X, *G*) 

WRITECG, 1G30) (RRHUBC I ) , 1=1 , NS) 

1G30 FORMAT C 1H , IX, *RRHUBCI )*, 3X, GCF5.3, IX) ) 

WRITECG, 1G40) CRCC I ) , 1=1, NS) 

1G40 FORMAT C 1H , IX, *RCC I )*, GX, GCF5.3, IX) ) 

WRITECG, 1G50) CRBLADEC I ), 1=1, NS) 

1G50 FORMAT C 1H , IX, *RBLADEC I )*, 2X,6(F5.2» IX) ) 

WRITECG, 1GG0) CSTAGERC I ) , 1=1 , NS) 

1GG0 FORMAT C 1H , IX, *STAGERC I ) *, 2X, GCF5. 2, IX) ) 

WRITECG, 1661) CSTAGESC I ) , 1=1 , NS) 

1GG1 FORMAT C 1H , IX, *STAGESC I )*, 2X, GCF5. 2, IX) ) 

WRITECG, 1670) CSRHUBC I ) , 1=1, NS1 ) 

1G70 FORMAT C 1H , IX, *SRHUBC I )*, 3X, 7CF5.3, IX) ) 

WRITECG, 1G80) CSCCI ) , 1=1, NS) 

1GS0 FORMAT C 1H , IX, *SCC I )*, GX, GCF5. 3, IX) ) 

WRITECG, 1G90) CSBLADEC I ) , 1=1, NS) 

1690 FORMAT C 1H , IX, *SBLADEC I )*, 2X, 6CF5. 2, IX) ) 

WRITECG, 1700) CSIGUMRC I ) , 1=1 , NS ) 

1700 FORMAT C 1H , IX, *SIGUMRC I )*, 2X,6CF5.3, IX) ) 
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WRITECB, 1750) CSIGUMSCI), 1=1, NS) MAIM 351 

1750 FORMAT C 1H , 1X,*SIGUMS( I )*, 2X, GCF5. 3, IX) ) MAIN 352 

WRITEC6, 1792) (FAISTLC I )» 1=1, NS) MAIN 353 

1792 FORMAT (1H , 1X,*FAISTL( I)*, 2X, GCF5. 3, IX) ) MAIN 354 

WRITEC6, 1795) (GAPR( I ) , 1=1 , NS) MAIN 355 

1795 FORMAT ( 1H , IX, *GAPR( I )*> 4X» 6CF5. 3, IX)) MAIN 35B 

WRITEC6, 1796) (GAPS( I ) » I=1»NS) MAIN 357 

179B FORMAT ( 1H , IX, XGAPS ( I )*, 4X, BCF5. 3, IX) ) MAIN 358 

WRITEC6, 1798) (RRTIPC I ) , 1=1, NS) MAIN 359 

1798 FORMAT ( 1H , IX, CRRTIPC I )*, 3X, GCF5.2, IX) ) MAIN 3G0 

WRITECB, 1799) (SRTIPC I ) , 1=1, NS1 ) MAIN 3G1 

1799 FORMAT ( 1H , IX, *SRTIP( I )*, 3X, 7CF5.2, IX) ) MAIN 3G2 

WRITECB, 1801) CRTCI), 1=1, NS) MAIN 3G3 

1801 FORMAT ( 1H , IX, *RT( I )*, BX, GCF5.3, IX) ) MAIN 3G4 

WRITECB, 1802) (RM( I ) , 1=1 , NS) MAIN 3G5 

1802 FORMATQH , IX, *RMC I )*, BX, GCF5. 3, IX) ) MAIN 3GB 

WRITEC6, 1803) C RH( I ) , 1=1 , NS) MAIN 3G7 

1803 FORMAT ( 1H , IX, *RH( I )*, BX, 6CF5. 3, IX) ) MAIN 3G8 

WRITECB, 1804) C5TC I ) , 1=1, NS) MAIN 3G9 

1804 FORMAT C 1H , IX, *SHC I ) *, BX, GCF5. 3, IX) ) MAIN 370 

WRITECB, 1805) (SMC I ), 1 = 1 , NS) MAIN 371 

1805 FORMAT ( 1H , IX, *SM( I )*, BX, BCF5.3, IX) ) MAIN 372 

UlRITECG, 1S0G) (SHC I ) , 1 = 1 , NS) MAIN 373 

180G FORMATC1H , IX, *SHC I )*, BX, GCF5.3, IX) ) MAIN 374 

WRITECB, 1807) (BLDCKCI), 1=1, NS) MAIN 375 

1807 FORMAT C 1H , IX, *BLOCK ( I )*, 3X, GC F5. 3, IX) ) MAIN 37G 

WRITECB, 1808) ( BLOCKS C I ), 1=1, NS) MAIN 377 

1808 FORMAT C 1H , IX, ^BLOCKS ( I )*, 2X, 6CF5.3, IX) ) MAIN 378 

WRITECB, 1811) CBET1MRC I ) , 1=1 , NS) MAIN 379 

1811 FORMAT ( 1H , IX, *BET1MR( I )*, 2X, GCF5.2, IX) ) MAIN 380 

WRITECB, 1812) C BET2MRC I ) , 1=1 , NS ) MAIN 381 

1812 FORMAT ( 1H , IX, *BET2MR( I )*» 2X, GCF5. 2, IX) ) MAIN 382 

WRITECB, 1813) CBET1MSC I ) , 1=1 , NS1 ) MAIN 383 

1813 FORMAT C 1H , IX, *BET1MS( I )*, 2X, 7CF5. 2, IX) ) MAIN 384 

WRITECB, 1814) (BET2MSC I ) , 1=1 , NS1 ) MAIN 385 

1814 FORMAT ( 1H , IX, XBET2MSC I )*, 2X, 7CF5. 2, IX)) MAIN 38G 

WRITECB, 1815) (PR12DC I ) , 1=1 , NS) MAIN 387 

1815 FORMATC1H , IX, *PR12D( I )*, 3X, 6CF5.3, IX) ) MAIN 388 

WRITECB, 181G) (PR13DC I ) , 1=1, NS) MAIN 389 

181G FORMAT C 1H , IX, XPR13DC I )*, 3X, GCF5.3, IX) ) MAIN 390 

WRITECB, 1817) (ETARDC I ) , 1=1 , NS) MAIN 391 

1817 FORMAT (1H , IX, *ETARD( I )*, 3X, BCF5.3, IX) ) MAIN 392 

IFCIAREA.EQ.2) WRITEC6, 1821 ) CSAREAC I ) , 1=1 , NS) MAIN 393 

1821 FORMAT ( 1H , IX, CSAREAC I )*, 3X, GCF10. 7, IX) ) MAIN 394 

IF C IAREA.E0.2) WRITECB, 1822) CSAREASC I ) , 1=1 , NS1 ) MAIN 395 

1822 FORMATC1H , IX, /SAREASC I )*, 2X, 7CF10. 7, IX)) MAIN 39G 

WRITECB, 1818) MAIN 397 

1818 FORMAT ( 1H1 , 5X> ^********»*****#*********»**** INPUT DATA ********** MAIN 398 

■><• x w -x' x w x iC- -Jo x v v ^ ^ ) MAIN 399 

WRITECB, 1800) FNF MAIN 400 

1800 FORMAT Cl HO, IX, *FNF( FRACTION OF DESIGN CORRECTED SPEED)=X,F5.3) MAIN 401 

WRITEC6, 1810) XDIN, XDDIN, RHUMID, XCH4 MAIN 402 

1810 FORMAT C 1H0, IX, XXDINC INITIAL WATER CONTENT OF SMALL DROPLET ) =*, F5. 3 MAIN 403 

$,/,2X,*XDDIN( INITIAL WATER CONTENT OF LARGE DROPLET )=*> F5. 3, /, MAIN 404 

$2X, *RHUMID( INITIAL RELATIUE HUMIDITY)=*, FB. 2, IX, XPER CENT*,/, MAIN 405 

$2X,XXCH4( INITIAL METHANE CONTENT )=*, F5. 3) MAIN 40G 

WRITECB, 1820) TOG, TOW, PO MAIN 407 

1820 FORMAT C 1H0, IX, XTOGCCQMPRESSOR INLET TOTAL TEMPRATURE OF GAS)=X, MAIN 408 

$F7.2» /» 2X, XTOWC COMPRESSOR INLET TEMPERATURE OF DROPLRET) =*, F7. 2, /, MAIN 409 

$2X,*P0 (COMPRESSOR INLET TOTAL PRESSURE)^, F7. 2) MAIN 410 

WRITECB, 1830) DIN, DDIN MAIN 411 

1830 FORMAT (1H0, 1X,*DIN(INITIIL DROPLET DIAMETER OF SMALL DROPLET)=X, MAIN 412 

$FG= 1 * /» 2X» XDDINC INITIAL DROPLET DIAMETER OF LARGE DROPLET)=X, F6. 1 ) MAIN 413 

WRITECB, 1850) FND MAIN 414 

1850 FORMAT ( 1H0, IX, XFNDC DESIGN ROTATIONAL SPEED)=X, F7. 1 ) MAIN 415 

WRITECB, 1851) DSMASS MAIN 41G 

1851 FORMAT C 1H0, IX, XDSMASSC DESIGN MASS FLOW RATE)=*» F10.4) MAIN 417 

WRITECB, 1SB0) TOG MAIN 418 

1SG0 FORMAT ( 1H0, IX, ^COMPRESSOR INLET TATAL TEMPERATURECGAS PHASE)* , MAIN 419 

$F7.2, IX, *R*) MAIN 420 
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INLET TOTAL PRESSURES, F7. 2* IX, *LB/FT**2 


WRITECG, 1870 ) PO 
1870 FORMAT C 1H0, IX, ^COMPRESSOR 
$*) 

WRITECG, 1880) PREB 

1880 FGRMAT C 1H0, IX, ^PREBC PERCENT OF WATER THAT REBOUND AFTER IMPINGE 
$MENT ) =F, F5 . 1 , IX , ^PERCENT?* ) 

WRITECG, 1900) FN 

1300 FORMAT ( 1H0, 1X» FROTOR SPEEDS, F7. 1. IX, *RPM*) 

WRITECG, 1910) CRPM.FNFN 

1910 FORMAT C 1H0 » IX, /CORRECTED ROTOR SPEED= *,F7. 1, IX, *RPM*,*(A 2X, F5. 1, 
$FPER CENT OF DESIGN CORRECTED SPEED )*) 

TG( 1)=T01D 
PC 1 )=P01D 

CALL WICSPDCDSMASS, ISTAGE) 

SPEEDF=FNF 
CALL CSINPT 
XWC1)=0.0 
CALL NASA 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c c 

C ROTER SPEED AND RADIUS C 

C C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DO 153 1=1, NS 

UTIPC I )=RT( I )/12. 0*2. 0*PAI*FN/G0. 0 
UTIPGCI)=RRTIPCI)/12.0*2.0*PAI*FN/G0.0 
UTIP2 C I ) =ST ( I ) / 12 . 0*2 . 0*PAI*FN'G0 . 0 
UTIPDC I )=RTC I )/12. 0*2.0*PAI*FND/60. 0 
UOUC I)=(UTIP(I )/UTIPD( I ) )**2 
UMEANC I )=RMC I )/12. 0*2.0*PAI*FN/60. 0 
UMEAN2 C I ) =SM C I )/l2. 0*2. 0*PA I *FfVG0 . 0 
UHUBC I )=RH( I )/12. 0*2. 0*PAI*FN/B0 . 0 
UHUB2C I )=SHC I )/12. 0*2. 0*PAI*FN/B0. 0 
IF ( IRAD.EQ. 1 ) U C I ) =UTIP C I ) 

U( I )=UMEAN( I ) 

U C I ) =UHUB( I ) 

UU2C I )=UTIP2( I ) 

UU2 Cl) =UMEAN2 ( I ) 

UU2C I )=UHUB2C I ) 

RADII C I )=RT Cl) 

RADI2C I )=ST Cl) 

RADII C I )=RMC I ) 

RADI2C I )=SMC I ) 

RADII C I )=RHC I ) 

RADI2C I )=SMC I ) 


,2) 
1 3 ) 
,3) 


IFCIRAD.EQ.2) 

IFCIRAD.E0.3) 

IFC IRAD.EQ. 1 ) 

IFCIRAD.E0.2) 

IFCIRAD.E0.3) 

IFCIRAD.EQ.l) 

IF C IRAD.EQ. 1 ) 

IFC IRAD.EQ. 2 ) 

IFCIRAD.EO, 

IF C IRAD.EQ. 

IFC IRAD.EQ, 

153 CONTINUE 

C ++++'r+ + + + + ++++ +++ + +++++++ + + -r +++ +++++++++ - i 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C C 

C MASS FLOE RATE 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ISTAGE = 0 
N=1 

REAB(5» 200 ) FAI 
FORMAT CF7. 5) 

IFCFAI.GT. 1.0) GO TO 998 
IFC IPRINT . EO. 2 ) WRITECB? 197) FAI 
FORMAT C 1H1 » 2X» ^FAI=F9 F7. 5 ) 

FAIO=FAI 
UZ=UTIPGC1)*FAI 
TGC 1 )=0T01G 
UZERO=0 . 0 
UUZERO=0 . 0 


301 

200 


197 


RZERO=RRHUBC 1 ) 
RRZERO=RRHUB Cl) 
ITIP=0 
I ITIP=0 
DAUECN )=0 . 0 


MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 


421 

422 

423 

424 

425 
42B 

427 

428 

429 

430 

431 

432 

433 

434 

435 
43G 

437 

438 
433 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 
45B 

457 

458 
453 
4B0 

461 

462 

463 

464 

465 

466 

467 

468 
4G9 

470 

471 

472 

473 

474 

475 

476 

477 

478 
473 

480 

481 

482 

483 

484 

485 

486 

487 

488 
483 
430 
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non 


DBAUECN)=0. 0 
TUC D=OT01D 
TWUC D=QT01B 

IFCXDIN.GT.0.0) DAUE(N)=DIN 
IFCXDDIN.GT. 0.0) DDAUE(N)=DDIN 
IF CXDIN.GT. 0. 0) TUC i )=DT0iD 
IFCXDDIN.GT. 0.0) TWW(1)=0T01D 
PCI )=DPOI 

TBC 1 ) = WICEPT CTGC 1 ) » PCD) 

UIS(l) = WICSHCTGC 1 ) , PCI) )*RHUMID/100.0 
PU=WSC D--PC D/CUSC 1 ) +0.6213) 

TDEUC 1 )=WICEPT(TG( 1 ) » PW) 

XWCI)=XDIN 
XWUU)=XDDIN 
XWT(1)=XWC1 )+XWW(l) 

XUT0=XWT(1) 

XU(D=WS(D/(1.0+USC1))*(1.0--XUTU)-XCH4) 

XA=1 . o-xwrc i )-XUC i )-XCH4 

XG=XA+XU(1)+XCH4 

XAIN=XA 

XCH4IM=XCH4 

ISTAGE=1 

CALL WICPRPCXA, XUC 1 ) , XCH4, TGC1 ) , RMIX» CPMIX, GAMMA, Gl, G2, G3) 

GAMMAI=GAMMA 

RKOG (1 ) =P C! ) /RM IX/TG C I ) 

RH0A(D=PC1)/RA/TGC1) 

AMASSM=-1.0 

AAA2=AAA!GU 

AAA3=AAAIGU 

CALL HICMAC C ISTAGE, AMASSM, TG( 1) , PCD » M, UZ, C» XWTC 1 ), BET2SS C MSI ) , 
$RMIX» CPMIX. AAA3) 

RHDG C 1 ) = C 1 . 0+G2*M**2 ) **G3*RK0G C 1 ) 

RKOM CD = 1.0/CC1. 0-XUT CD) /RHDG C 1 ) +XWT C 1 ) /RHOUI ) 

MMASS = RrlQMCD---FAI--UTIPG(l)*-AAA3 
MMASSO=MMASS 
WMASSO=MMASSO*-XDIN 
Mk'MASO=MMASSD*XDDIN 

IF C IPRINT. EQ. 2) URITEC6, 5558) MMASSO, XDIN, WMASSO, MMASS 
5558 FORMAT C 1H0, 2X, 4CF10 .5, 2X) ) 

DAMY=OT 0 1G/5I8 . 7 
DAMY2=OP01/C 14.7*144.0) 

C[ v iASS=MMASS“SGRT C DAMY ) /BAMY2 
AMASS = XA * MMASS 
WMASS Cl) =XU CD *MMASS 
MWMASS C 1 ) =XRW C 1 ) -MMASS 
UTMASS ( 1 ) =XUT C 1 ) *MMASS 
UMASSC 1 ) =XU CD - MMASS 
CHMA5S=XCH4-MMASS 
GMASS C I ) =MMASS-WTf1ASS C 1 ) 

CMASS2=GMASS C 1 ) -SORT C DAMY ) /D AM Y2 

AMO=AMASS 

UMO=UMASSC 1 ) 

CMO=CHMASS 

GMO=GMASSCD 

WMO=UMASSCD 

wmo=mMAsscD 

WTMO=UTMASSCD 

TLMO=GMO+WTMO 

TWMAS= WMASSO- A AAR 1T/AA A I GU 

Tl4WMAS=WUMAS0-AAARlT/AAAiGU 

WKASTL=TWMAS+TWWMAS 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

INITIAL UALUES 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

TGC3)=TGC 1 ) 

TNC3)=TWC i ) 

Tk!UC3)=TWW( 1 ) 


MAIM 

491 

MAIN 

492 

MAIN 

493 

MAIN 

494 

MAIN 

495 

MAIN 

496 

MAIN 

497 

MAIN 

493 

MAIN 

499 

MAIN 

500 

MAIN 

501 

MAIN 

502 

MAIM 

503 

MAIN 

504 

MAIN 

505 

MAIN 

506 

MAIN 

507 

MAIN 

SOS 

MAIN 

509 

MAIN 

510 

MAIN 

511 

MAIN 

512 

MAIN 

513 

MAIN 

514 

MAIM 

515 

MAIN 

516 

MAIN 

517 

MAIN 

518 

MAIN 

519 

MAIM 

520 

MAIN 

521 

MAIN 

522 

MAIN 

523 

MAIN 

524 

MAIN 

525 

MAIN 

526 

MAIM 

527 

MAIN 

528 

MAIN 

529 

MAIN 

530 

MAIN 

531 

MAIM 

532 

MAIN 

533 

MAIN 

534 

MAIN 

535 

MAIN 

536 

MAIN 

537 

MAIN 

538 

MAIM 

539 

MAIN 

540 

MAIM 

541 

MAIN 

542 

MAIN 

543 

MAIM 

544 

MAIN 

545 

MAIN 

546 

MAIN 

547 

MAIN 

548 

MAIN 

549 

MAIN 

550 

MAIM 

551 

MAIN 

552 

MAIN 

553 

MAIN 

554 

MAIN 

555 

MAIM 

556 

MAIN 

557 

MAIN 

558 

MAIN 

559 

MAIN 

560 
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non 


PC3)=PC1) 

TB(3)=TB( 1 ) 

WS(3)=WS( 1 ) 

TDEW(3)=TDEWC1) 

XU(3)=XU( 1 ) 

XG=XA+XU ( 3 ) +XCH4 
XWC3)=XW( 1 ) 

XWU(3)=XWWC1) 

UMASS O ) =UMASS Cl) 

WMASS C 3 ) =WM ASS Cl) 

WUMASS C 3 ) =WWMASS Cl) 

WCENT=WMASSO 

WWCENT=WWMASO 

0++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +++ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

IGU C 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C IGU IMPINGEMENT 

CALL WICISS(7» RADII C 1 ) » XWCi) , XG , RHQGC1), 0.0,UZ,WW1, WW2, WW) 
AMIMPS=WW 

AMWAKS = AMIMPS « C1.0-PREB) 

AMREBS=AMIMPS*PREB 

C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

C IGU WAKE 
N=2 

DAUE ( 2 ) =DAUE ( 1 ) 

DDAUE C 2 ) =DD AUE ( 1 ) 

ALFA3=BET2SS(NS1 )*CFAID/FAI )**C 1 .0^7.0) 

DWAKEM=0 . 0 

IFCXDIN.GT.0.0. DR. XDDIN. GT .0.0) GO TO G28 
GO TO G29 

G28 CALL WICWAKCRHOGC 1 ) » UZ» DWAKE* DWAKEM) 

629 CONTINUE 

C ++++++++++++++++++++++++++++++-i-+ J r++++++++++++++++++++++++-i-++++++ 

C IGU OUTLET 

WMASSC3) = WMASS C 1 ) 

XWC3) = XW(1) 

PRAT I 0=1 . 0 
TRATIO=l . 0 
EFF=1 . 0 
AMIMPR=0 . 0 
AMREBR=0. 0 
AMWAKR=0 . 0 
DELTGW=0 . 0 
DELTDW=0 . 0 
DELTGH=0. 0 
DELTDH=0. 0 
DELT=0 . 0 
DELP=0. 0 
DMDTAU=0 . 0 
XU(3)=XUC 1 ) 

XU(3)=XU( 1 ) 

XWWC3)=XWWC1) 

WMASSC3) = WMASSC1) 

WWMASS(3)=WWMASS( 1 ) 

UMASSC3) = UMASS (1) 

WSC3) = WSC1) 

TDEWC3)=TDEWC 1 ) 

RH0AC3) = RHOA(l) 

RH0MC3) = RHOM(l) 

RH0GC3) = RHOGC1) 

TGC3) = TG( 1 ) 

TWO) = TW( 1 ) 

TWWC3)=TWWC 1 ) 

P(3 ) = PCI) 

TBC3) = TBC 1 ) 

XUC2)=0.0 
XWC2) = 0.0 


MAIN 

5G3 

MAIN 

56E 

MAIN 

5s: 

MAIN 

56^ 

MAIN 

56E 

MAIN 

56E 

MAIN 

557 

MAIN 

56E 

MAIN 

5BS 

MAIN 

57C 

MAIN 

571 

MAIN 

57E 

MAIN 

573 

MAIN 

574 

MAIN 

575 

MAIN 

57G 

MAIN 

577 

MAIN 

578 

MAIN 

579 

MAIN 

580 

MAIN 

581 

MAIN 

582 

MAIN 

583 

MAIN 

584 

MAIN 

585 

MAIN 

585 

MAIN 

587 

MAIN 

588 

MAIN 

589 

MAIN 

590 

MAIN 

591 

MAIN 

592 

MAIN 

593 

MAIN 

594 

MAIN 

595 

MAIN 

595 

MAIN 

597 

MAIN 

598 

MAIN 

599 

MAIN 

BOO 

MAIN 

B01 

MAIN 

B02 

MAIN 

G03 

MAIN 

604 

MAIN 

605 

MAIN 

GOG 

MAIN 

G07 

MAIN 

G08 

MAIN 

G09 

MAIN 

BIO 

MAIN 

Gil 

MAIN 

G12 

MAIN 

G13 

MAIN 

G14 

MAIN 

G15 

MAIN 

GIG 

MAIN 

G17 

MAIN 

G18 

MAIN 

G19 

MAIN 

G20 

MAIN 

G21 

MAIN 

G22 

MAIN 

623 

MAIN 

G24 

MAIN 

G25 

MAIN 

B2G 

MAIN 

G27 

MAIN 

G28 

MAIN 

629 

MAIN 

G30 
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XWWC2)=0. 0 MAIN G31 

WMASSC2) = 0.0 MAIN 632 

WWMASSC2)=0.0 MAIN G33 

UMASSC2) = 0.0 MAIN G34 

UISC2) = 0.0 MAIN G35 

RHOAC2)=0 . 0 MAIN G3G 

RHQMC2) = 0.0 MAIN 637 

RH0GC2)= 0.0 MAIN 638 

TGC2)=0 . 0 MAIN G38 

TUC2) =0.0 MAIN G40 

TWU(2)=0 . 0 MAIN S41 

PC2) = 0.0 MAIN G42 

TBC2) = 0.0 MAIN G43 

TDEl~K2)=0 . 0 MAIN G44 

GAMMAO=GAMMA MAIN G45 

C +++++*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ MAIN G4G 

C IGU OUTLET MAIN 647 

IFCIPRINT.EQ.2) WRITEC6.300) ISTAGE MAIN G48 

300 FORMAT ( 1H0* 5X» ^ISTAGES* II* 2X» IGU)?0 MAIN 649 

IFCIPRINT.EQ.2) WRITECG,301) PRATIO, TRATIO. EFF MAIN 650 

301 FORMAT C1H0*5X*3CF12.5*5X)) MAIN G51 

IFCIPRINT.EQ.2) URITECG,302) FAI* UZ» XA MAIN G52 

302 FORMAT C 1H0* 5X* 3CF12.5* 5X) ) MAIN G53 

IFCIPRINT.EQ.2) WRITECG* 303) MMASS* AMASS* AMIMPS, AMREBS, AMWAKS* MAIN G54 

1AMIMPR* AMREBR* AMWAKR MAIN 655 

303 FORMAT(1HO»5X*8CF12.5»2X) ) MAIN 656 

IFCIPRINT.EQ.2) WRITECG, 304) DELTGW, DELTDW, DELTGH, DELTDH, DMDTAU, MAIN 657 

$DELT * DELP MAIN 658 

304 FORMAT C 1H0* 5X» 7CF12.5* 2X) ) MAIN G59 

IFCIPRINT.EQ.2) WRITECG, 305) XUC1), XUC2), XUC3) MAIN 660 

305 FORMAT C 1H0 * 5X» ?*XUS, 3CF20.10*5X) ) MAIN 661 

IFCIPRINT.EQ.2) WRITECG, 306) XWC1), XWC2) * XWC3) MAIN 662 

306 FORMAT C 1H0* 5X* ?*XWS» 3CF20 . 10* 5X) ) MAIN 663 

IFCIPRINT.EQ.2) WRITECG, 307) WMASSC1), WMASSC2) * WMASSC3) MAIN 664 

307 FORMAT C 1H0* 5X, XWMASSS, 3CF20 . 10* 5X) ) MAIN 665 

IFCIPRINT.EQ.2) WRITEC6, 308) UMASSC1) , UMASSC2) , UMASSC3) MAIN 666 

308 FORMAT C 1H0, 5X* ^UMASSS, 3CF20 . 10* 5X) ) MAIN 667 

IFCIPRINT.EQ.2) WRITECG, 309) WSC1) * W5C2) * WSC3) MAIN 668 

309 FORMAT C 1H0* 5X* ^WSS, 3CF20 . 10* 5X) ) MAIN 669 

IFCIPRINT.EQ.2) URITEC6.310) RHOAC1) , RH0AC2) , RH0AC3) MAIN 670 

310 FORMAT C 1H0* 5X> ^RHOAS, 3CF20. 10* 5X) ) MAIN 671 

IFCIPRINT.EQ.2) WRITECG, 311) RHOMC1), RH0MC2) * RH0MC3) MAIN 672 

311 FORMAT ( 1H0* 5X* ^RHOMS, 3CF20. 10* 5X) ) MAIN 673 

IFCIPRINT.EQ.2) WRITECG, 312) RHOGC 1 ) »RH0GC2) * RH0GC3) MAIN 674 

312 FORMAT C 1H0* 5X* XRHOGS, 3CF20. 10* 5X) ) MAIN 675 

IFCIPRINT.EQ.2) WRITECG, 313) TGC 1 ) * TGC2) * TGC3) MAIN 676 

313 FORMAT C 1H0* 5X* XTGS, 3CF20.10*5X)) MAIN 677 

IFCIPRINT.EQ.2) WRITECG, 314) TWC 1 ) , TWC2) » TWC3) MAIN 678 

314 FORMAT ( 1H0* 5X» MTWS, 3CF20 . 10* 5X) ) MAIN 679 

IFCIPRINT.EQ.2) WRITECG, 315) PC 1 ) , PC2) , PC3) MAIN 680 

315 FORMAT C 1H0, 5X, ^PS, 3CF20.10,5X)) MAIN 681 

IFCIPRINT.EQ.2) WRITECG, 316) TBC 1 ) * TBC2) * TBC3) MAIN 682 

316 FORMAT C 1H0* 5X* ^TBS, 3CF20 . 10* 5X) ) MAIN 683 

IFCIPRINT.EQ.2) WRITECG, 321) TDEWC 1 ) , TDEWC2) , TDEWC3) MAIN 684 

321 FORMATCiH0,5X,*TDEUS,3(F20.10.5X» MAIN 685 

RHOG C 2 ) =RHOG Cl) MAIN 686 

C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ MAIN 687 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIN 688 

C MAIN 689 

ROTER INLET MAIN 690 

C MAIN 691 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIN 692 

900 ISTAGE=ISTAGE-!-l MAIN 693 

IFCIPRINT.EQ.2) WRITECG, 8001 ) FA 10* ISTAGE MAIN 694 

8001 FORMATC1H1. IX. ***»»»»***»**»»***»** *,1X» MAIN 6S5 

S^INITIAL FLOW COEFFICIENTS, IX. F5. 3, IX. j*CISTAGE= *, 12. IX, MAIN 696 

) ^ , 2X , if if -s if c & x ) M A I N 697 

TGC 1 )=TGC3) MAIN 693 

TWC 1 )=TWC3) MAIN 693 

TUWC 1 )=TWWC3) MAIN 700 
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PCI )=P(3) 


MAIN 

701 

TBC 1 )=TBC3) 


MAIN 

702 

RHOAC 1 )=P( 1 I/RA/TGC 1 ) 


MAIN 

703 

WSC 1 )=WSC3) 


MAIN 

704 

TDEWC 1 )=TDEWC3) 


MAIN 

705 

XUC 1)=XUC3) 


MAIN 

706 

XCH4=CHMASS/MMASS 


MAIN 

707 

XA=AMASS/MMASS 


MAIN 

708 

XG=XA+XU Cl) +XCH4 


MAIN 

703 

XAIRC 1 )=XA 


MAIN 

710 

XMETANC 1 )=XCH4 


MAIN 

711 

XGASC 1 )=XG 


MAIN 

712 

XWC 1 )=XWC3) 


MAIN 

713 

XWW C 1 )=XWWC3) 


MAIN 

714 

XUTC1)=XWC1)+XWWC1) 


MAIN 

715 

UMASSC 1 )=UMASSC3) 


MAIN 

71G 

WMASS Cl) =WMASS C 3 ) 


MAIN 

717 

WWMASS Cl) =WWMASS C 3 ) 


MAIN 

718 

MTMASS C 1 ) =WMASS C 1 ) +WWMASS C 1 ) 


MAIN 

719 

MMASS=AMASS+CHMASS+UMASSC 1 )+WTMASSC 1 ) 


MAIN 

720 

TMASS Cl) =MM ASS 


MAIN 

721 

GMASS C 1 ) =TM ASS C 1 ) -WTMASS C 1 ) 


MAIN 

722 

ALFA1=ALFA3 


MAIN 

723 

CALL WICPRP CXA, XUC 1 ) » XCH4, TG C 1 ) , RMIX, CPMIX, GAMMA, G1 , G2, G3) 


MAIN 

724 

GAMMAS=GAMMA 


MAIN 

725 

AAA1=AAA3 


MAIN 

72S 

C “r“8" + + ++ - r ‘1"+ + + ++ + ++ + + + -H- ++ +■+*+ +++ “{-■+• ++ +++ 4*+ ++ +4 — f~ +++ *h + + ++++ + H- + 4 — H — h +H — H 


MAIN 

727 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

MAIN 

728 

c 

C 

MAIN 

729 

C STAGE PERFORMANCE CALCULATION 


MAIN 

730 

C 

C 

MAIN 

731 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

MAIN 

732 

JPERFM=2 


MAIN 

733 

DAMY=0 . 0 


MAIN 

734 

IFC WTMASS CD.GT.1.0E-4) 


MAIN 

735 

$DAMY=WWMASS C 1 ) /WTMASS C 1 ) 


MAIN 

736 

IFCDAMY.GT.0.20) JPERFM=3 


MAIN 

737 

IFCIPRINT.E0.2) WRITE CG, 8000 ) JPERFM 


MAIN 

738 

SOOO FORMA ICIHO,^ STAGE PERFORMANCE CALCULATION C JPERFM=?*,I2, )/) 


MAIN 

739 

IFC JPERFM. EQ. 2) GO TO 1301 


MAIN 

740 

IF( JPERFM. EG). 3) GO TO 1302 


MAIN 

741 

1301 CALL CSOUPT CFAIO, ISTAGE, MMASS, ALFA1 , BETA1 , BETA2, UZ, ALFA2, ALFA3, 


MAIN 

742 

XBt-LTG? BELTW, W1 , W2 , U1 , U2) 


MAIN 

743 

GO TO 1303 


MAIN 

744 

1302 CALL COUP l 2 CFAIO, ISTAGE, GMASS C 1 ) , ALFA1, BETA1 , BETA2, UZ, ALFA2, 


MAIN 

745 

£ALFA3s DELTG, DELTW, W1 , W2, U1 , U2) 


MAIN 

746 

1303 CONTINUE 


MAIN 

747 

DELTGl^DELTG 


MAIN 

748 

DELTW1=DELTW 


MAIN 

749 

IFCUZ.LT. 0. 0. OR. UZ.GT. 1000.0) WRITECG, 1304) UZ 


MAIN 

750 

1304 FORMAT C 1H0, IX, f^AXIAL UELOCITY IS TOO HIGH OR TOO LOW^,^UZ=^, 


MAIN 

751 

SF10.5) 


MAIN 

752 

IFCUZ.LT. 0.0. OR. UZ.GT. 1000.0) GO TO 901 


MAIN 

753 


MAIN 

754 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

MAIN 

755 

c 

C 

MAIN 

75G 

C ROTOR IMPINGEMENT 

c 

MAIN 

757 

C 

c 

MAIN 

758 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

MAIN 

759 

C ROiOR IMPINGEMENT C SMALL DROPLET) 


MAIN 

760 

IFC IPRINT.EQ.2) WRITECG, 8010 ) 


MAIN 

761 

8010 FORMAT C lHi,^ ROTOR I MP I NGEMEHT C SMALL DROPLET)^) 


MAIN 

762 

CALL WICIRSC ISTAGE, RADII C ISTAGE) , XWC 1 ) , XG, RHOGC 1 ) , BETA1 , W1 , WW1 , 


MAIN 

763 

SWW2,WM) 


MAIN 

764 

AMIMPR=WW 


MAIN 

765 

iFCAMIMPR.LT. 0.0) AMIMPR=0 . 0 


MAIN 

< 66 

IFC AMIMPR. GT. WMASSC 1 ) ) AMIMPR=WMASSC 1 ) 


MAIN 

767 

AMREER=AMINFR-"-PREE/100 . 0 


MAIN 

768 

AMWAKR=AMIMPRw(l . C-PREE/10G . 0 ) 


MAIN 

769 

AMNOIR-WNASSC 1 ) -AMIMPR 


MAIN 

770 
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XWNOIR=AMNOIR*MMASS MAIM 

XWREBR=AMREBR/MMASS MAIM 

XWWAKR=AMWAKR/MMASS MAIM 

IFCIPRINT.EQ.2) WRITE(G,609) AMIMPR» AMREBR* AMWAKR> AMMOIR» MAIM 

$XWNQIR» XWREBR» XWWAKR MAIM 

609 FORMATC1H ,7(F12.5» IX) ) + + ++ +++++++++++++ 

C ROTOR IMPIMGEMEMT (LARGE DROPLET) MAIM 

IFCIPRINT.EQ.2) WRITECG, 8020) MAIM 

8020 FORMAT(1HO>* ROTOR IMPIMGEMEMTC LARGE DROPLET)*) MAIM 

CALL UICIRL ( ISTAGE, RADI 1 ( ISTAGE) , XWW ( 1 ) , XG, RHOG ( 1 ) . BETA1 , W1 , WW1 , WW MAIM 
$2> WW) MAIM 

BMIMPR=WW MAIM 

IFCBMIMPR.LT. 0.0) BMIMPR=0 . 0 MAIM 

IFCBMIMPR.GT.WWMASSC1) ) BMIMPR=WWMASS( 1 ) MAIM 

BMREBR=BMIMPR*PREB/100.0 MAIM 

BMWAKR=BMIMPR*( 1 . 0-PREB/100 . 0) MAIM 

BMNOIR=WWMASS(l)-BMIMPR MAIM 

XWWB=0. 0 MAIM 

IF(WWMASS(l).GT.1.0E-6) XWWB=BMWAKR*WWMASS( 1 ) MAIM 

XWWN0R=BMN0IR/MMA5S MAIM 

XWWRER=BMREBR/MMASS MAIM 

XWWWAR=BMWAKR/MMASS MAIM 

IFCIPRIMT.EQ.2) WRITEC6, 6090) BMIMPR, BMREBR, BMWAKR, BMNOIR, XWWNOR, MAIM 
$XWWRER , X WWW AR MAIM 

B090 FORMAT ( 1H , 7CF12. 5, IX) ) MAIM 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIM 

C MAIM 

ROTOR WAKE MAIM 

C MAIM 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIM 
IFCIPRIMT.EQ.2) WRITECG, 8030) MAIM 

8030 FORMAT ( 1H0, * ROTOR WAKE*) MAIM 

M=M+1 MAIN 

ALFA=BETA2 MAIM 

DWAKEM=0. 0 MAIM 

IF ( AMWAKR. GT. 0.0) GO TO B30 MAIN 

GO TO B31 MAIN 

630 CALL WICWAKCRHOGC 1 ) » W2» DWAKE, DWAKEM) MAIM 

631 D1=DWAKEM MAIM 

IFCD1.LT. 0.0) D1=0 . 0 MAIM 

IFCDl.GT.DIM) D1=DIN MAIM 

AMIMG1=AMWAKR MAIN 

ALFA=BETA2 MAIN 

RDELU1=DELUU2 MAIN 

DWAKEM=0.0 MAIM 

I F ( BMW AKR . GT . 0 . 0 ) GO TO 6310 MAIM 

GO TO 6311 MAIM 

6310 CALL W I CWAK ( RHOG ( 1 ), RDELU1, DWAKE, DWAKEM) MAIM 

6311 D2=DWAKEM MAIM 

IFCD2.LT. 0.0) D2=0.0 MAIM 

IFCD2. GT.DDIM) D2=DDIM MAIM 

RUP2=( 90. 0-BETA2) *180.0 MAIM 

AMING2=BMWAKR*RUP2 MAIM 

RDELU2=DELUL2 MAIM 

DWAKEM=0.0 MAIN 

IFCBMWAKR.GT. 0.0) GO TO 6312 MAIN 

GO TO 6313 MAIM 

6312 CALL WICWAK (RHOG ( 1 ) » RDELU2, DWAKE» DWAKEM ) MAIM 

6313 D3=DWAKEM MAIM 

IFCD3.LT. 0.0) D3=0. 0 MAIM 

IFCD3. GT.DDIM) D3=DDIN MAIM 

RLOW2=(90.0+BETA2)/180.0 MAIM 

AMING3=BMWAKR*RL0W2 MAIM 

WMASSS=WMASS(1) -AMWAKR MAIM 

WMASSL=WWMASS(1)-BMWAKR MAIN 

CALL WICSIZC WMASSL» WMASSS, AMING1 , AMING2, AMING3, DDAUEC 1 MAIM 

$) , DAUE ( 1 ) , D1 , D2* D3, DLIMIT, AMSLL, AMLGE* DSLL, DLGE) MAIM 

WWMASS C 2 ) =AMLGE MAIM 
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WMASS ( 2 ) =AMSLL 

IF(WMASS(2).LT.0.0) WMASSC2)=0.0 
IFC WWMASS C 2 ) . LT . 0 . 0 ) WWMASS ( 2) =0 . 0 
WTMASS ( 2 ) =W WMASS ( 2 ) +WMASS ( 2 ) 

UMASS(2)=UMASSC1) 

MMASS=AMASS+CHMASS+UMASS C 2 ) +WTMASS ( 2 ) 

TMASS ( 2 ) =MM ASS 

GM ASS ( 2 ) =TM ASS C 2 ) -WTMASS ( 2 ) 

DAUE(N)=DSLL 
DDAUE(N)=DLGE 
XW ( 2 ) =WM ASS ( 2 ) /MM ASS 
XUW ( 2 ) =WWMASS ( 2 ) /MMASS 
XWT ( 2 ) =WTMASS C 2 ) /MMASS 
XU(2)=XU( 1 ) 

XCH4=CHMASS/MMASS 
XA=AMASS/MMASS 
XG=X A+XU ( 2 ) +XCH4 
XAIR(2)=XA 
XMET AN ( 2 ) =XCH4 
XGAS(2)=XG 

WS C 2 ) =UMASS ( 2 ) /AMASS 
PW=WS(2)*PC2)/CWS(2)+0.G219) 

TDEW(2)=WICBPT (TGC2) » PW) 

RHO A ( 2 ) =P ( 2 ) /RA/TG ( 2 ) 

CALL WICPRPCXA, XUC2) , XCH4» TG(2) * RMIX» CPMIX» GAMMA» Gl» G2» G3) 

RHDG ( 2 ) =P ( 2 ) /RM IX/TG ( 2 ) 

IFC JPERFM.ME. 3) BMASS=MMASS 
IFC JPERFM.EQ. 3) BMASS=GMASSC2) 

CALL WICMACC ISTAGE* BMASS, TG(2) , P(2) , M» U2* C» XWTC2) » ALFA2* 

$RMIX* CPMIX» AAA2) 

RHOG ( 2 ) = ( 1 . 0+G2*M**2 ) **G3*RHDG C 2 ) 

RHOM(2)=1.0/( (1.0-XWTC2) )/RH0GC2)+XWTC2)/RH0W) 

RHQA C 2 ) = ( 1 . 0+G2*M**2 ) **G3*RHD A C 2 ) 

IF ( IPRINT.EQ. 2) URITE(G,G14) UZ» ALFA. D1 » D2» D3» WWMASS(2) * 

$WMASS(2) »UMASS(2). XW(2)»XU(2) 

G14 FORMAT ( 1H , 10CF12.5, IX) ) 

IFC IPRINT.EQ. 2) WRITECG, G15) WSC2) , DAUECN) . DDAUE(N) , RH0MC2) . RHOA 
$ ( 2 ) » RHOM C 2 ) » RHOG ( 2 ) 

G15 FORMAT ( 1H .7CF12.5, IX) ) 

IF(UZ. LT. 0 . 0 . OR. UZ.GT. 1500 . 0 ) WRITECG, G150 ) 

G150 FORMAT ( 1H0 , ^UZ IS TOO HIGH OR TOO LOW: UZ=^,F10.4) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

CENTRIFUGAL ACTION IN ROTOR C 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
C CENTRIFUGAL EFFECT IN ROTOR (SMALL DROPLET) 

IFCIPRINT.EQ.2) WRITECG, 8040 ) 

8040 FORMAT ( 1H0, ^CENTRIFUGAL ACTION IN ROTOR (SMALL DROPLET)*) 

DELMW=0. 0 
DELMAS=0 . 0 
RW=0 . 0 
RWW=0 . 0 

I F ( WTMASS ( 1 ) . GT . 1 . OE-B ) RW=WMASS ( 1 ) /WTMASS C 1 ) 

I F ( WTMASS C 1 ) . GT . 1 . OE-6 ) RWW=WWMASS ( 1 ) /WTMASS ( 1 ) 

AM ASW= ( WMASTL-WCENT-WWCENT ) *R W 
BMASW= ( WMASTL-WCENT-WWCENT ) *RWW*XWWB 
IF(DAUECN-l).LT.l.OE-G) GO TO 99G 
DD=DAUE(N-1 ) 

DELZZ=RC( ISTAGE ) /12 . 0 
ALFAAU=(BETAl+BETA2)/2. 0 
IRS=2 

RH0GAS=RH0G(2) 

RHUB=RRHUB( ISTAGE) 

CALL WICCENCRZERO, UZERO, DD, UZ» DELZZ, ALFAAU , FN, IRS, RHOGAS, 

1 RHUB , R2 , U2 , 1 T I P , UZT I ME , XG , X A , XU C 2 ) , XCH4 , RRTIPC ISTAGE ) ) 

CALL WICDMSC IPRINT, IRAD, WMASSC 1 ) , AMASW, AMASW, RZERO, R2, AAREAC ISTA 
$GE) , RADI 1 C ISTAGE ) , RRTIPC ISTAGE ) , DMI N, DMOUT , AMASW2, DELMAS ) 
WCENT=DELMAS 
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RZER0=R2 

UZER0=U2 

99G DELMW=DELMAS 

C CENTRIFUGAL EFFECT IN ROTOR (LARGE DROPLET) 

IF( IPRINT.EQ.2) WRITECG, 8050) 

8050 FQRMATC1H0,/ CENTRIFUGAL ACTION IN ROTOR (LARGE DROPLET)/) 

DELMA5=0 . 0 
DELMWW=0. 0 

IF(DDAUE(N~1 ) . LT. 1 . OE-G) GO TO 999G 
DD=DDAUE(N-1) 

DELZZ=RC ( I STAGE ) /I 2 . 0 

ALFAAU=0 . 0 

IIRS=2 

RH0GAS=RH0G(2) 

RHUB=RRHUB( I STAGE) 

CALL WICCEN(RRZERO> UUZERO> DD» UZ» DELZZ» ALFAAU »FN» IIR5»RH0GAS» 
1RHUB, R2» U2* I ITIP, UZTIME, XG, XA, XU(2)» XCH4> RRTIPC ISTAGE) ) 

CALL WICDMLC IPRINT, IRAD, WWMASSC 1 ) , BMASW* BMASW, RRZERO, R2, AAREACIS 
$TAGE) » RADIK ISTAGE) , RRTIPC ISTAGE) , DMIN, DMOUT » AMASW2 , DELMAS ) 
RRZER0=R2 
UUZER0=U2 

9SSG DELMWW=DELMAS 
WM=WMASS(2) 

WWM=WWMASS(2) 

WMASS ( 2 ) =WMASS ( 2 ) +DELMW 
WWMASS ( 2 ) =WWMASS ( 2 ) +DELMWW 
WTMASS ( 2 ) =WMASS ( 2 ) +WWMASS ( 2 ) 

IF(WTMASS(2) .GT.WMASTL) TT=WTMASSC2)/WMASTL 

IF ( UTM ASS ( 2 ) . GT . WMASTL ) WMASS ( 2 ) =UMASS ( 2 ) /TT 

I F ( WTMASS ( 2 ) . GT . WMASTL ) WWMASS ( 2 ) =WWMASS ( 2 ) sj T 

DELMW=WMASS(2)-WM 

DELMWW=WWMASS ( 2 ) -WWM 

WTMASS ( 2 ) =WMASS ( 2 ) +WWM ASS ( 2 ) 

DELMAS=WTMASS ( 2 ) -WTMASS ( 1 ) 

MMASS=MMASS+DELMA5 

XW ( 2 ) =WMASS ( 2 ) /MMASS 

XWW ( 2 ) =WWMASS ( 2 ) /MMASS 

XU ( 2 ) =UMASS ( 2 ) /MMASS 

XA=AMASS/MMASS 

XCH4=CHMASS/MMASS 

XG=XA+XU ( 2 ) +XCH4 

DELUUM=RHOG ( 2 ) /RHOW*DELMAS 

AMASS=AMASS-DELUUM* ( AMASS/GMASS ( 2 ) ) 

UMASS ( 2 ) =UM ASS ( 2 ) -DELUUM* ( UM ASS ( 2 ) /GMASS C 2 ) ) 

CHMASS=CHMASS~DELUUM* ( CHMASS/GM ASS ( 2 ) ) 

MMASS=AMASS+UMASS ( 2 ) +CHMASS+WTM ASS ( 2 ) 

WS ( 2 ) =UMASS ( 2 ) /MMASS 
WCENT=WCENT+DELMW 
WWCENT =WWCENT +DELMWW 
IF(WMASS(2).LT.1.0E-G) DAUE(N)=0.0 
IFCWWMASSC2) .LT. 1 . OE-G) DDAUE(N)=0. 0 
C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

STATOR IMPINGEMENT C 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C STATOR IMPINGEMENT (SMALL DROPLET) 

IF ( IPRINT.EQ.2) WRITE(6» 80G0 ) 

80G0 FORMAT ( 1H0> / STATOR IMPINGEMENT (SMALL DROPLET)/) 

CALL WI Cl SS ( ISTAGE , R AD 1 2 ( ISTAGE ) , XW ( 2 ) , XG , RHOG (2) > ALFA2» U2» 
$WW1»WW2> WW) 

AMIMPS=WW 

IF ( AMIMPS . GT. WMASS ( 2 ) ) AMIMPS=WMASS ( 2 ) 

IFCAMIMPS.LT. 0.0) AMIMPS=0 . 0 
AMREBS=AMIMPS*PREB/100.0 
AMWAKS^AM IMPS* ( 1 . O-PREB/1 00 . 0 ) 

IF( IPRINT.EQ.2) WRITE(G,G17) XW(2) , XG. RH0GC2) , U2* WW* AMIMPS, AMRE 
$BS» AMWAKS 
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617 FORMAT ( 1H ,8(F12.5» IX) ) MAIM 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ MAIM 
C STATOR IMPIMGEMENT ( LARGE DROPLET) MAIM 

IFCIPRIMT.EQ.2) WRITECG, 8070) MAIM 

8070 FORMAT C 1H0> * STATOR IMPIMGEMEMT (LARGE DROPLET)*) MAIM 

CALL WICISLC ISTAGE, RADI2C ISTAGE) , XWW(2)>XG> RH0GC2) , ALFA2, U2, WW1 MAIM 

$» UW2» WW) MAIM 

BMIMPS=WW MAIM 

IFCBMIMPS.LT. 0.0) BMIMPS=0. 0 MAIM 

IF CBMIMPS.GT. WUMASSC2) ) BMIMPS=WWMASSC2) MAIM 

BMREBS=BMIMPS*PREB/100.0 MAIM 

BMWAKS=BMIMPS*-( 1 . 0-PREB/100. 0 ) MAIM 

IFCIPRINT.EQ.2) WRITECG, 6617) XWWC2) » XA* RH0AC2) » UZ» WW» BMIMPS.BM MAIM 

$REBS» BMWAKS MAIM 

6617 FORMAT ( 1H * 8CF12. 5* IX) ) MAIM 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ MAIM 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIM 

C MAIM 

STATOR WAKE MAIM 

C MAIM 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIM 
IFCIPRIMT.EQ.2) WRITEC6, 8080) MAIM 

8080 FORMAT ( 1H0» * STATOR WAKE*) MAIM 

M=M+1 MAIM 

ALFA=ALFA3 MAIM 

DWAKEM=0 . 0 MAIM 

IF ( AMWAKS . GT . 0 . 0 ) GO TO 632 MAIM 

GO TO 633 MAIM 

632 CALL WICUAKCRHOG (2) »U2» DUAKE»DWAKEM) MAIM 

633 D1=DWAKEM MAIM 

IFCD1.LT. 0.0) D1=0 . 0 MAIM 

IFCDl.GT.DIM) E1=DIN MAIM 

AMING1=AMUAKS MAIM 

ALFA=ALFA3 MAIM 

SDELU1=DELUU2 MAIM 

DWAKEM=0 . 0 MAIM 

IF ( BMWAKS. GT. 0.0) GO TO 6330 MAIM 

GO TO 6331 MAIM 

6330 CALL WICWAK (RH0GC2 ) , SDELU1 , DWAKE, DWAKEM) MAIM 

6331 D2=DWAKEM MAIM 

IFCD2.LT. 0.0) D2=0 . 0 MAIM 

IFCD2.GT.DDIM) D2-DDIN MAIM 

SUP2=C90.0-ALFA3)/180.0 MAIM 

AMING2=BMWAKS*SUP2 MAIM 

SDELU2=DELUL2 MAIM 

DWAKEM=0 . 0 MAIM 

I F ( BMWAKS . GT . 0 . 0 ) GO TO 6332 MAIM 

GO TO 6333 MAIM 

6332 CALL WICWAKCRH0GC2) , SDELU2, DWAKE, DWAKEM) MAIM 

6333 D3=DUAKEM MAIM 

IFCD3.LT.0.0) D3=0 . 0 MAIM 

IFCD3.GT.DDIM) D3=DDIM MAIM 

SLOW2=(90.0+ALFA3)/180.0 MAIM 

AMING3=BMWAKS*SLOW2 MAIM 

WMASSS=WMASS (2) -AMWAKS MAIM 

WMASSL=WWMASS ( 2 ) -BMWAKS MAIM 

IFCWMASSS.LT. 0.0) WMASSS=0 . 0 MAIM 

IFCWMASSL.LT. 0.0) WMASSL=0 . 0 MAIM 

CALL WICSI2C WMASSL» WMASSS, AMIMG1 , AMIMG2» AMIMG3» DDAUEC2 ) , DAUEC MAIM 

$2) , D1 . D2» D3» DLIMIT > AMSLL» AMLGE. DSLL. DLGE) MAIM 

WUMASS(3)=AMLGE MAIM 

WMASS ( 3 ) =AMSLL MAIM 

IFC WMASSC3) .LT. 0 . 0 ) WMASSC3)=0.0 MAIN 

I F ( W WMASS (3).LT.0.0) WWMASSC3)=0.0 MAIM 

WTM ASS ( 3 ) =WWMASS ( 2 ) +WM ASS C 2 ) MAIM 

UMASS C 3 ) =UMASS ( 2 ) MAIM 

MMASS=AMASS+CHM ASS+UMASS C 3 ) +WTMASS ( 3 ) MAIM 

TMASS C 3 ) =MM ASS MAIM 

GMASS ( 3 ) =TMASS ( 3 ) -WTM ASS ( 3 ) MAIM 

DAUEC M)=DSLL MAIM 
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DDAUECN)=DLGE MAIN 

XUC3)=UMASSC3)/MMASS MAIN 

XWW C 3 ) =WWM ASS C 3 ) /MMASS MAIN 

XWT ( 3 ) =WTMASS C 3 ) /MMASS MAIN 

XUC3)=XUC2) MAIN 

XA=AMASS/MMASS MAIN 

XCH4=CHMASS/MMASS MAIN 

XG=XA+XU C 3 ) +XCH4 MAIN 

XAIRC3)=XA MAIN 

XMETANC3)=XCH4 MAIN 

XHAA ( *3 1 =XP MATN 

IFCUMASSO.LT.l.OE-G) UMASS0=UMASSC3) MAIN 

IFCWUMASQ.LT. 1.0E-G) WWMAS0=WUMA5SC3) MAIN 

I F ( WTM ASS (3).GT.0.0) RU=UMASSC3)/UTMASSC3) MAIN 

I F ( WTMASS C 3 ) . GT . 0 . 0 ) RWU=WWMASSC3)/WTMASSC3) MAIN 

TGC3)=TGC2) MAIN 

TWC3)=TWC2) MAIN 

IFC IPRINT . EQ. 2) WRITE(G,G19) RHOAC2) , UZ, ALFA, Dl, D2. WWMASSC3) MAIN 

$> WMA5SC3) » UMASSC3) » XWC 3 ) » XUC3 ) MAIN 

G1S FORMAT ( 1H » 10CF12.5, IX) ) MAIN 

IFC IPRINT. EG. 2) WRITEC6, 620) EAUECN) >TGC3) » TWC3) MAIN 

G20 FORMAT C 1H , 3CF12. 5, IX) ) MAIN 

IF CUMASSC2) . GT. 0 . 0 . AND. UUMASSC 2 ) . GT . 0 . 0 ) GO TO 951 MAIN 

IF CWMASSC2) .GT. 0. 0) GO TO 951 MAIN 

IFC WWMASS C 2 ) . GT . 0 . 0 ) GO TO 951 MAIN 

WSC3)=USC2) MAIN 

TBC3)=TBC2) MAIN 

TDEW C 3 ) =TDEW C 2 ) MAIN 

DELTG2=0. 0 MAIN 

DELTG3=0 . 0 MAIN 

DELTW2=0 . 0 MAIN 

TRATI0=TGC3)/TGC1) MAIN 

DAUECN)=0. 0 MAIN 

RHOA C 3 ) =P C 3 ) /RA/TG C 3 ) MAIN 

CALL WICPRPCXA»XUC3) , XCH4, TGC3) » RMIX»CPMIX> GAMMA, G1 » G2» G3) MAIN 

RH0GC3)=PC3)/RMIX/TG(3) MAIN 

IFC JPERFM.NE.3) EMASS=MMASS MAIN 

IFC JPERFM.EQ.3) EMASS=GMASSC3) MAIN 

CALL WICMACC ISTAGE* BMASS* TGC3),P(3)*M»UZ,C» XWTC3) * ALFA3* MAIN 

$RMIX*CPMIX» AAA3) MAIN 

RHOG ( 3 ) = C 1 . 0+G2*M**2 ) **G3*RH0G C 3 ) MAIN 

RH0MC3)=1 . 0/C C 1 . 0-XWTC3) )/RK0GC3)+XWTC3)/RH0W) MAIN 

RHOA C 3 ) = C 1 . 0+G2*M**2 ) *«G3*RH0A C 3 ) MAIN 

GO TO 950 MAIN 

951 CONTINUE MAIN 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ MAIN 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIN 

C MAIN 

CENTRIFUGAL EFFECT C IN STATOR) MAIN 

C MAIN 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIN 
GO TO 708 MAIN 

IFC IPRINT. EG. 2) WRITECG, 8090 ) MAIN 

8090 FORMAT C 1H0, * CENTRIFUGAL ACTION IN STATOR*) MAIN 

IFCDAUECN-1).LT.1.0E-S) GO TO 708 MAIN 

DD=DAUECN-1) MAIN 

DELZZ=SCC ISTAGE V12.0 MAIN 

ALFAAU=CALFA2+ALFA3)/2.0 MAIN 

IRS=1 MAIN 

RHOGAS=RHOG C 2 ) MAIN 

RHUB=SRHUBC ISTAGE) MAIN 

CALL UICCENCRZERO, UZERO, BD» UZ* DELZZ, ALFAAU* FN, IRS, RHOGAS, MAIN 

IRHUBj R2» U2j TTIP,UZTIME,XG,XA,XU(2),XCH4,SRTIPCISTAGE) ) MAIN 

TWMAS=WMAS5 ( 2) *AREASC ISTAGE) /AAA2 MAIN 

TWWMAS=WWMASS C 2 ) -AREAS C I STAGE ) /AAA2 MAI N 

TT =TWMAS+TWWM AS MAIN 

IFCTT.GT.0.0) TWMAS=TWMAS*WMASTL/TT MAIN 

IFCTT.GT.O. 0) TWWMAS=TWWMAS*WMASTL/TT MAIN 

AMASW=WMASSO MAIN 

CALL WICDMSC IPRINT , IRAD, WMASSC2) , TUMAS, AMASU, RZERO, R2, AAAIGU, MAIN 
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$RADI2( ISTAGE) , SRTIPC ISTAGE) » DMIN. DMOUT, AMASU2, DELMAS) 

UMASS ( 3 ) =AMA5U2 

IF(WMASS(3).LT.0.0) UMASS(3)=0.0 
I F ( UMASS (3) .GT. TUMAS ) UMASS ( 3 ) =TUMAS 
MMASS=MMASS+DELMAS 
XU ( 3 ) =UMASS ( 3 ) /MMASS 
XUU ( 3 ) =WUMASS ( 3 ) /MMASS 
XU ( 3 ) =UMASS ( 3 ) /MMASS 
XA=AMASS/MMASS 
XCH4=CHMASS/MMASS 
XG=XA+XU ( 3 ) +XCH4 
US ( 3 ) =UMASS ( 3 ) /MMASS 
RZER0=R2 
UZER0=U2 
708 COMTIMUE 

UTM ASS C 3 ) =UMAS5 ( 3 ) +UUM ASS C 3 ) 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c c 

C HEAT TRAMSFER C 

C C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C HEAT-TRAMSFER (SMALL DROPLET) 

IF( IPRINT.EQ.2) URITEC6, 8120 ) 

8120 FORMAT ( 1H0, ^ HEAT TRANSFERS) 

DELTGH=0 . 0 

DELTUH=0 . 0 

IF ( DAUECN-2) .GT. 0. 0. AND. DAUE(M) .GT. 0 . 0 ) GO TO 8121 
GO TO 8122 

8121 RE=0 . 0 

XU1=(XU( 1 )+XU(3) )/2. 0 
XU1=(XU( 1 )+XU( 3) )/2. 0 
WMASS1=(UMASS(1)+UMASS(3) )/2.0 
UMASS 1 = ( UMASS ( 1 ) +UMASS ( 3 ) ) /2 . 0 

CPG1=XA*UICCPA(TG( 1 ) )+XU( 1 )*UICCPH(TG( 1 ) )+XCH4*WICCPC(TG( 1 ) ) 

CPG3=X A*U I CCP A ( TG ( 3 ) ) +XU ( 3 ) *U ICCPH ( TG ( 3 ) ) +XCH4 *U I CCPC ( TG ( 3 ) ) 
CPG=(CPGl+CPG3)/2.0 

CALL UICHET (TG(1)»TG(3)»TU(1),TU(3), DAUECN-2) > DAUE(M) 

DELZC ISTAGE) , UZ, UMASS1 * UMASS1 » AMASS. CHMASS, CPG, CPU, DELTGH 
$» BELTUH, RE) 

8122 DELTG2=DELTGH 
DELTU2=DELTUH 

C +++■!*+++++++++++++++++++++++■{-++++ ++++++++++++++++++■!• ++++++++++++++++++ 

C HEAT TRAMSFER (LARGE DROPLET) 

DELTGH=0.0 


DELTUH=0 . 0 

I F ( DDAUE (N-2) . GT. 0 . 0 . AMD . DDAUECM ) . GT. 0 . 0 ) GO TO 8123 
GO TO 8124 

8123 RE=0 . 0 

IF(DDAUECN-l) .GT.0.0) RE=REAUE 
XU1=(XU( 1 )+XU(3) )/2. 0 
XUl=(XUU(l)+XUW(3))/2.0 
UMASS1 = ( WWMASS ( 1 ) +UUM ASS ( 3 ) ) /2 . 0 
UMASS 1 = ( UMASS ( 1 ) +UMASS ( 3 ) ) /2 . 0 

CPG 1 =XA*UI CCPA ( TG ( 1 ) ) +XU ( 1 ) I CCPH ( TG ( 1 ) ) +XCH4*U I CCPC C TG ( 1 ) ) 
CPG3=XA*UI CCPA ( TG ( 1 ) ) +XU ( 3 ) -- WICCPH ( TG ( 3 ) ) +XCH4*U I CCPC ( TG ( 3 ) ) 
CPG=(CPGl+CPG3)/2. 0 

CALL UICHET (TG(1)»TG(3)» TUUC 1 ) , TUUC 3) » DDAUE (M-2) » DDAUECM) 

$, DELZC ISTAGE ) , UZ, UMASS1 , UMASS1 , AMASS, CHMASS, CPG, CPU, DELTGH 
$, DELTUH, RE) 

8124 DELTG3=DELTGH 
DELTU3=DELTUH 

TG(3)=TG( 1 )+DELTGl-DELTG2~DELTG3 
TW(3)=TUC 1 ) +DELTU1+DELTU2 
TUU ( 3 ) =TUU ( 1 ) +DELTU3 
TRATI0=TGC3)/TG( 1 ) 

IFCIPRIMT.EQ.2) URITE(G,G27) DELTG2, DELTU2, DELTG3, DELTU3, TGC3) » 
$TU(3)» TUUC3) , TRATIO 
G27 FORMAT ( 1H , SCF15.G, IX) ) 

C J >' + + + + + ■{• + + + + + + + + + -;- + + +++ J r + + + + -r + +++ J r + + -J-+++ + 4-+4-++ +++ + + -r- + + + +++ + + + + + ++++++ 
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1138 

MAIM 
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MAIM 
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MAIM 

1142 

MAIM 

1143 

MAIM 

1144 

MAIM 

1145 

MAIM 

1146 

MAIM 
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MAIM 

1148 

MAIN 

1149 

MAIM 

1150 

MAIM 

1151 

MAIM 

1152 

MAIM 

1153 

MAIM 

1154 

MAIM 

1155 

MAIM 

1156 

MAIM 

1157 

MAIM 

1158 

MAIM 

1159 

MAIN 

1160 

MAIM 

1 1G1 

MAIM 

1162 

MAIM 

1163 

MAIN 

1164 

MAIN 

1165 

MAIM 

1166 

MAIN 

1167 

MAIN 

1168 

MAIN 

1169 

MAIN 

1170 

MAIN 

1171 

MAIN 

1172 

MAIN 

1173 

MAIN 

1174 

MAIN 

1175 

MAIN 

1176 

MAIN 

1177 

MAIN 

1178 

MAIN 

1179 

MAIN 

1180 

MAIN 

1181 

LAIN 

1182 

MAIN 

1183 

MAIN 

1184 

MAIN 

1185 

MAIN 

1186 

MAIN 

1187 

MAIN 

1188 

MAIN 

1189 

MAIN 

1190 
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CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIN 


c C MAIN 

C MASS-TRANCEFER MAIN 

C C MAIN 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIN 
IFCIPRINT.E0.2) URITECG, 8130) MAIN 

8130 FORMAT C 1H0, ^ MASS TRANSFERS) MAIN 

BAUEN2=DAUECN-2) MAIN 

DAUEN=DAUECN) MAIN 

DZ=DELZ (1ST AGE ) MAIN 

RE=0 = 0 MAIN 

DMDTAU=0 . 0 MAIN 

IFCBAUECN-2) .GT. 0. 0. AND. DAUECN) . GT. 0. 0 ) GO TO G3B MAIN 

GO TO 637 MAIN 

636 CALL WICMASCUISC 1 )»TU(1)»TW(3)»P(1)*P(3)»TG(1)»TG(3)» DZ»PWBi» PWB2 MAIN 

PUl , PW2, UZ, DAUEN2, DAUEN, KW2, UMASSC1 ) , UMASS2, WMASSC l ) , UMASS2, MAIN 

SDMDTAU 5 AMASS » RE ) MAIN 

637 DMDTAi=DMDTAU MAIN 

IF CDMDTA1 o LTo 0 . 0 ) DMDTA1=0.0 MAIN 

DAUEN2=EDAUECN-2) MAIN 

DAUEN=DDAUECN) MAIN 

DZ=DELZ ( I ST AGE ) MAIN 

RE=0 . 0 MAIN 

BMD l AU=0 . O MAIN 

IF CDDAUECN-1 ) .GT. 0 . 0. AND. DDAUE(N) . GT. 0. 0) RE=REAUE MAIN 

IF ( DDAUECN-2) . GT. 0 . 0 .AND. DDAUECN) . GT. 0 . 0 ) GO TO 6360 MAIN 

GO 10 6370 MAIN 

6360 CALL WICMASCUISC 1 ), TWWC 1 ), TWWC3) » PC 1 )» PC 3) > TGC 1 )» TGC 3) » DZ, PWB1, PUB2 MAIN 

PWi, PW2, UZ, DAUEN2, DAUEN, HW2, UMASSC 1 ) , UMASS2, UUMASSC 1 ) , UMASS2, MAIN 

$>DMDT AU » AMASS » RE ) MAIN 

6370 DMDT A2=BMDT AU MAIN 

IFCDMDTA2. LT. 0.0) DMDTA2=0.0 MAIN 

WMASSC 3 ) =WM ASS ( 3 ) -DMDT A 1 MAIN 

WWMASS C 3 ) =WWMASS ( 3 ) -DMDTA2 MAIN 

WMA3TL=WMASTL- ( DMDTA 1 +DMDTA2 ) * AAREAS C I STAGE ) /AA A2 MAIN 

IF (WMASTL.LT. 0.0) WMASTL=0.0 MAIN 

IF CWMAS3C3) .LT. 0. 0) UMASS(3)=0.0 MAIN 

IFCWWMASSC3) .LT.0.0) UUMASS(3)=0. 0 MAIN 

WTMA3S C 3 ) =WMASS ( 3 ) +WUMASS C 3 ) MAIN 

UM ASS C 3 ) =UMASS C 3 ) +DMDT A 1 +DMDTA2 MAIN 

MMASS= AMASS+CHMASS+UMASS ( 3 ) +WTM ASS C 3 ) MAIN 

TMASS ( 3 ) =MM ASS MAIN 

GMASS C 3 ) =TMASS C 3 ) -WTM ASS C 3 ) MAIN 

XW C 3 ) =WM ASS ( 3 ) /MM ASS MAIN 

XWW C 3 ) =WWMASS ( 3 ) /MM ASS MAIN 

XWT C 3 ) =WTMASS C 3 ) /MMASS MAIN 

XU ( 3 ) =UMASS ( 3 ) /MMASS MAIN 

XA=AMASS/MMASS MAIN 

XCH4=CHMASS/MMASS MATN 

XG=XA+XUC3)+XCH4 MAIN 

XAIRC3)-XA MAIN 

XMET AN ( 3 ) =XCH4 MAIN 

XGASC3)=XG MAIN 

WS(3)=UMAS5C3) /AMASS MAIN 

PU=US C 3 ) -~-P C 3 ) / C WS C 3 ) +0 . 62 19 ) MAIN 

TDEU(3)=WICBPT CTGC3) » PM) MAIN 

RK0AC3)=PC3)/RA/TGC3) MAIN 

CALL UICPRPCXA, XUC3) , XCH4, TGC3) , RMIX, CPMIX, GAMMA, G1,G2, G3) MAIN 

RK0G(3)=PC3)/RMIX/TGC3) MAIN 

IFC JPERFM.NE.3) EMASS=MMASS MAIN 

IFC JPERFM.E0.3) EMASS=GMASS C 3 ) MAIN 

CALL Ml CM ACC I STAGE, EMASS, TG(3),PC3),M,UZ,C, XMT ( 3) , ALFA3, MAIN 

$RMIX, CPMIX, AAA3) MAIN 

RHOG C 3 ) = C 1 . 0+G2*M**2 ) **G3*RH0G C 3 ) MAIN 

RK0M(3)=1.0/CC1.0-XUTC3) )/RH0GC3)+XMTC3)/RH0M) MAIN 

RHOA C 3 ) = C 1 . 0+G2*M**2 ) **G3*RH0G C 3 ) MAIN 

TBC3)=WICBPT CTGC3) , PC3) ) MAIN 

IFC IPRINT .E0.2) URITECG,G24) WUMASSC3) » XWMC3) * DDAUECN) , MMASSC3) » MAIN 
$UMASSC3),XWC 3), XUC3),WSC3), DAUECN) MAIN 

624 FORMAT C 1H ,9CF12.5, IX) ) MAIN 
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non 


IFC IPRINT. EQ.2) WRITEC6, G25). RH0AC3) , RH0MC3) , RH0GC3) » DMDTA1, DMD 
$TA2, PW2, TWO) » TGC3) 

G25 FORMAT ( 1H , 8CF12.5, IX) ) 

950 DELTGW=DELTG 1 
DELTDW=DELTW1 
DELTGH=-DELTG2-DELTG3 
DELTDH=DELTW2 
DELP=PC3)-PC 1 ) 

GAMMAO=GAMMA 

TB(3)=WICBPT(TG(3) » PC3) ) 

C ++++++ +++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++-$-++++++ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

OUTPUT (STAGE PERFORMANCE) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

WRITECG, 400) FAIO, ISTAGE 

400 FORMAT ( 1H1 , IX, S******************* IX, 

$^XNITIAL FLOW COEFFICIENTS. IX, F5. 3, IX, *CISTAGE= *, 12, IX, 

S, 2X, ?£*****■****•***■*•******•*;«!) 

PRATI0=PC3)/PC1) 

TRATI0=TG(3)/TG(1) 

GAMMAU= ( GAMM AS+G AMMAO ) /2 . 0 
G4= ( GAMM AU- 1.0) /GAMM AU 

ETA A ( I ST AGE ) = ( PR ATI 0**G4- 1 . 0 ) / ( TRATIO- 1.0) 

WRITECG, 402) JPERFM 

402 FORMAT ( 1H0. 5X, ISTAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT*, 
$*(JPERFMS, II,*)*) 

WRITECG, 401 ) PRATIO, TRATIO, ETAAC ISTAGE) 

401 FORMAT (1H0,5X,*ST AGE TOTAL PRESSURE RATIOS, F12. 5, /, 

$GX,*STAGE TOTAL TEMPERATURE RATIOS, F12.5, /, 

$6X,*STAGE ADIABATIC EFFICIENCYS, F12. 5) 

WRITECG, 4025) 

4025 FORMAT C 1H0, 12X, ***STAGE INLET***, 4X,***STAGE OUTLET***, 
$4X,***STAGE OUTLET***) 

WRITECG, 402G) 

402G FORMAT C 1H , 33X, *( BEFORE INTERS, GX,*(AFTER INTERS) 

WRITECG, 4027) 

4027 FORMAT C1H ,34X,*STAGE ADJUSTS, 7X, *STAGE ADJUSTS) 

WRITECG, 4028) 

4028 FORMAT C 1H , 34X, AMENTS, 15X, AMENTS) 

WRITECG, 405) XUC1), XUC1), XUC3) 

405 FORMAT ( 1H , 5X,*XUS, 3CF15.5, 5X) ) 

WRITECG, 40G) XWC1), XWC1) , XWC3) 

40G FORMAT ( 1H , 5X, *XWS, 3C F15.5, 5X) ) 

WRITECG, 40G0) XWWC 1 ) , XWWC 1 ) , XWWC3) 

40G0 FORMAT ( 1H , 5X, *XWWS, 3CF15.5, 5X) ) 

WRITECG, 40G1) XWTC 1 ) , XWTC 1 ) , XWTC3) 

40G1 FORMAT ( 1H , 5X,*XWTS, 3CF15.5, 5X) ) 

WRITECG, 40G2) XAIRC 1 ) , XAIRC 1 ) , XAIRC3) 

40G2 FORMAT C 1H , 5X, *XAIRS, 3CF15.5, 5X) ) 

WRITECG, 40G3) XMETANC 1 ) , XMETANC 1 ) , XMETANC3) 

40G3 FORMAT C 1H , 5XSXMETANS, 3CF15. 5, 5X) ) 

WRITECG, 40G4) XGASC 1 ) , XGASC 1 ) , XGASC3) 

40G4 FORMAT C 1H , 5X,*XGAS*, 3CF15. 5, 5X) ) 

WRITECG, 407) WMASSC1), WMASSC1) , WMASSC3) 

407 FORMAT ( 1H , 5X, *WMASSS, 3CF15. 5, 5X) ) 

WRITEC G, 4070 ) WWMASS ( 1 ) , WWMASS ( 1 ) , WWMASS ( 3 ) 

4070 FORMAT ( 1H , 5X, *WWMASSS, 3CF15. 5, 5X) ) 

WRITECG, 4071 ) WTM ASS Cl), WTMASS Cl), WTMASS C 3 ) 

4071 FORMAT C 1H ,5X, *WTMASSS, 3CF15.5, 5X) ) 

WRITECG, 4072) AMASS, AMASS, AMASS 

4072 FORMAT ( 1H , 5X,*AMASSS, 3CF15.5, 5X) ) 

WRITECG, 4073) CHMASS, CHMASS, CHMASS 

4073 FORMAT ( 1H , 5X,*CHMASSS, 3CF15.5, 5X) ) 

WRITECG, 408) UMASSC1) , UMASSC1) , UMASSC3) 

408 FORMAT C 1H ,5X,*UMASSS,3(F15.5,5X) ) 

WRITECG, 4080 ) GMASS ( 1 ) , GMASS ( 1 ) , GMASS C 3 ) 

4080 FORMAT ( 1H , 5X,*GMASSS, 3CF15.5, 5X) ) 

WRITECG, 4081 ) TMASSC 1 ) , TMASSC 1 ) , TMASSC3) 


MAIN 

12G1 

MAIN 

12G2 

MAIN 

12G3 

MAIN 

12G4 

MAIN 

1265 

MAIN 

12GG 

MAIN 

12G7 

MAIN 

12G8 

MAIN 

12G9 

MAIN 

1270 

MAIN 

1271 

MAIN 

1272 

MAIN 

1273 

MAIN 

1274 

MAIN 

1275 

MAIN 

127G 

MAIN 

1277 

MAIN 

1278 

MAIN 

1279 

MAIN 

1280 

MAIN 

1281 

MAIN 

1282 

MAIN 

1283 

MAIN 

1284 

MAIN 

1285 

MAIN 

128G 

MAIN 

1287 

MAIN 

1288 

MAIN 

1289 

MAIN 

1290 

MAIN 

1291 

MAIN 

1292 

MAIN 

1293 

MAIN 

1294 

MAIN 

1295 

MAIN 

129G 

MAIN 

1297 

MAIN 

1298 

MAIN 

1299 

MAIN 

1300 

MAIN 

1301 

MAIN 

1302 

MAIN 

1303 

MAIN 

1304 

MAIN 

1305 

MAIN 

130G 

MAIN 

1307 

MAIN 

1308 

MAIN 

1309 

MAIN 

1310 

MAIN 

1311 

MAIN 

1312 

MAIN 

1313 

MAIN 

1314 

MAIN 

1315 

MAIN 

131B 

MAIN 

1317 

MAIN 

1318 

MAIN 

1319 

MAIN 

1320 

MAIN 

1321 

MAIN 

1322 

MAIN 

1323 

MAIN 

1324 

MAIN 

1325 

MAIN 

132B 

MAIN 

1327 

MAIN 

1328 

MAIN 

1329 

MAIN 

1330 


191 


I 


4081 FORMAT (1H ,5X,*TMASS=*,3CF15.5,5X) ) MAIM 

WRITECB* 409) WSC1) , WSC1) , WSC3) MAIM 

403 FORMAT C 1H , 5X, *WS=A 3CF15.5, 5X) ) MAIM 

WRITEC6, 410 ) RHOA(l) , RH0AC2) , RH0AC3) MAIM 

410 FORMAT ( 1H ,5X,*RH0A=A 3CF15.5,5X)) MAIM 

WRITECB, 41 1 ) RHOMC1), RH0MC2) , RH0MC3) MAIM 

411 F0RMATC1H ,5X, *RHOM=?*, 3CF15.5, 5X) ) MAIM 

WRITECB, 412) RHOGC 1 ) , RHOGC2) » RH0GC3) MAIM 

412 FORMAT ( 1H » 5X> ? f RHOG=? £ , 3CF15.5, 5X) ) MAIM 

WRITECB, 413) TGC 1 ) , TGC2) , TGC3) MAIM 

413 FORMATC1H , 5X, *TG=*, 3CF15.5, 5X) ) MAIM 

WRITECB, 414) TW C 1 ) , TWC2 ) , TWC3) MAIM 

414 FORMATC1H , 5X, *TW=*, 3CF15.5, 5X) ) MAIM 

WRITECB, 4140) TWWC 1 ) , TWWC2) , TWWC3) MAIM 

4140 FORMAT C 1H , 5X, *TWW=*, 3CF15. 5, 5X) ) MAIM 

WRITECB, 415) PC 1 ) , P (2) , PC3) MAIM 

415 FORMAT C 1H , 5X, *P=*, 3CF15.5, 5X) ) MAIM 

WRITECB, 41B) TBC 1 ) , TBC2) , TBC3) MAIM 

41B FORMAT C 1H , 5X, *TB=A 3CF15.5, 5X) ) MAIM 

WRITECB, 422) TDEWC 1 ) , TDEWC2) , TDEWC3) MAIM 

422 FORMAT C 1H , 5X, *TDEW=*, 3 C F15. 5, 5X) ) MAIM 

C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ MAIM 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIM 
C C MAIM 

C BDILIMG MAIM 

C C MAIM 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIM 
GO TO 450 MAIM 

IFCXDIM. GT. 0 . 0 ) GO TO 4B0 MAIM 

GO TO 450 MAIM 

4B0 IFCTWC3).LT»TBC3)) GO TO 450 MAIM 

HU=1 1 15 . 3272-0 . B840909* C TB C 3 ) -4G0 . 0 ) MAIM 

DAMY=CPG/HU* C TG C 3 ) -TB C 3 ) ) MAIM 

XE=DAMY/CDAMY+1.0) MAIM 

IFCXE.GT.XWC3) ) GO TO 451 MAIM 

XEUAPO=XE MAIM 

TWC3)=TBC3) MAIM 

TGC3)=TBC3) MAIM 

XW C 3 ) =XW C 3 ) -XEU APO MAIM 

XU C 3 ) =XU C 3 ) +XEU APO MAIM 

GO TO 452 MAIM 

451 XEUAP0=XWC3) MAIM 

TWC3)=0 . 0 MAIM 

TGC3)=TGC3)-XWC3)/C 1 . 0-XWC3) )*HU/CPG MAIM 

XWC3)=0.0 MAIM 

XU C 3 ) =XU C 3 ) +XEUAPO MAIM 

452 WMASSC3)=XWC3)*MMASS MAIM 

UMASS C 3 ) =XU C 3 ) *MM ASS MAIM 

GMASS C 3 ) =UMASS C 3 ) + AM ASS MAIM 

IFC IPRIMT.EQ.2) WRITECB, 453) MAIM 

453 FORMAT C 1H0, ^BOILIMG? 5 ) MAIM 

IFCIPRIMT.EQ.2) WRITECB, 454) HU, XEUAPO, TWC3) , TGC3) , XWC3) , XUC3) MAIM 

$, WMASS C 3 ) , GMASS, UMASS C 3 ) , MMASS MAIM 

454 FORMAT C1H0,10CF10.5,2X)) MAIM 

450 COMTIMUE MAIM 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIM 
c C MAIN 

C BLEED MAIM 

C C MAIM 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC MAIM 
IFCXBLEEDC I STAGE) .GT. 0. 0) GO TO 45G MAIM 

GO TO 455 MAIM 

456 COMTIMUE MAIM 

XB=1 . 0-XBLEEDC ISTAGE) MAIM 

AMASS=AMASS*XB MAIM 

CHMASS=CHMASS*XB MAIM 

UMASS C 3 ) =UMASS C 3 ) *XB MAIM 

MMASS=AMASS+CHMASS+UMASS C 3 ) +WTMASS C 3 ) MAIM 

TMASS C 3 ) =MMASS MAIM 
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GM ASS ( 3 ) =TMASS C 3 ) - UTM ASS C 3 ) 


MAIN 

1401 

XU C 3 ) =UMASS C 3 ) /MM ASS 


MAIN 

1402 

XUU ( 3 ) =UUMASS ( 3 ) /MM ASS 


MAIN 

1403 

XUT (3) =UTMASS C 3 ) /MMASS 


MAIN 

1404 

XU ( 3 ) =UMASS C 3 ) /MMASS 


MAIN 

1405 

XA=AMA5S/MMASS 


MAIN 

140G 

XCH4=CHMASS/MMASS 


MAIN 

1407 

XG=XA+XU ( 3 ) +XCH4 


MAIN 

1408 

XAIRC3)=XA 


MAIN 

1409 

XMETANC3)=XCH4 


MAIN 

1410 

XGASC3)=XG 


MAIN 

1411 

455 CONTINUE 


MAIN 

1412 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 


MAIN 

1413 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

MAIN 

1414 

c 

C 

MAIN 

1415 

C REPEAT 


MAIN 

1416 

c 

C 

MAIN 

1417 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

MAIN 

1418 

IFC ISTAGE.EQ.NS) GO TO 902 


MAIN 

1419 

GO TO 900 


MAIN 

1420 

902 OUALPR=P(3)/OP01 


MAIN 

1421 

OUALTR=TGC3)/OT01G 


MAIN 

1422 

GAMMAU= C GAMMAI +GAMMAO ) /2 . 0 


MAIN 

1423 

G4= C GAMMAU-1 . 0 ) /GAMMAU 


MAIN 

1424 

OUALEF= C 0UALPR**G4~1 . 0 )/C OUALTR-1 . 0 ) 


MAIN 

1425 

ODELTG=TG C 3 ) -OT 0 1G 


MAIN 

142G 

OBELTU=0 . 0 


MAIN 

1427 

DELTUU=0 . 0 


MAIN 

1428 

DELMT=0 . 0 


MAIN 

1429 

DELMUT=0 . 0 


MAIN 

1430 

DELMG=0 . 0 


MAIN 

1431 

IF C XDI N . GT . 0 . 0 ) ODELTU=TU C 3 ) -OTO ID 


MAIN 

1432 

IF CXDDIN. GT .0.0) DELTUU=TUUC3)-OT01D 


MAIN 

1433 

DELMT= ( MMASS-TLMO ) /TLMD 


MAIN 

1434 

IFC UTMO . GT . 0 . 0 ) DELMUT= ( UTMASS ( 3 ) -UTMO ) /UTMO 


MAIN 

1435 

DELMG= ( GMASS ( 3 ) -GMO ) /GMO 


MAIN 

1436 

C ++++ + + + + + + + +++ + + + +++-r++++*f ++ +++ +++ + ++++ + + + +++++++++++++++++++++++++++ 

MAIN 

1437 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

MAIN 

1438 

c 

C 

MAIN 

1439 

C OUTPUT COUERALL PERFORMANCE) 


MAIN 

1440 

C 

C 

MAIN 

1441 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

MAIN 

1442 

URITEC G» 421 ) 


MAIN 

1443 

421 F0RMATC1H1. ?*********** OUERALL PERFORMANCE *********/) 


MAIN 

1444 

URITEC 4220 ) FAIO 


MAIN 

1445 

4220 FORMAT C1H0» 1X» ^INITIAL FLOU COEFFICIENTS, F5. 2) 


MAIN 

144G 

URITECG, 423) CRPM, FNF 


MAIN 

1447 

423 FORMAT C 1H0, IX, ^CORRECTED SPEEDS, F7 . 1 , 5X, F5. 3, IX, 


MAIN 

1448 

$^FRACTION OF DEIGN CORRECTED SPEED*) 


MAIN 

1449 

URITECG, 424 )XDIN, XDDIN, XUTO, RHUMID, XCH4IN 


MAIN 

1450 

424 FORMAT C 1HO, IX, ^INITIAL UATER CONTENT C SMALL DROPLET)S, F5.3, /» 


MAIN 

1451 

$2X, ^INITIAL UATER CONTENTCLARGE DROPLET )S* F5. 3, /» 


MAIN 

1452 

$2X, ^INITIAL UATER CONTENT C TOTAL )S, F5.3,/, 


MAIN 

1453 

$2X,*INITIAL RELATIUE HUMIDITYS, F5. 1, IX, *PER CENT*,/, 


MAIN 

1454 

$2X» *INITIAL METHANE CONTENTS, F5. 3) 


MAIN 

1455 

URITECG, 425) TOG 


MAIN 

145G 

425 FORMAT C 1H0, IX, *COMPRESSOR INLET TOTAL TEMPERATURES, F8. 2) 


MAIN 

1457 

URITECG, 42G) PO 


MAIN 

1458 

42G FORMAT C 1H0, IX, *COMPRESSOR INLET TOTAL PRESSURES, F8. 2) 


MAIN 

1459 

CCMASS=CMASS*AAAR1T/AAAIGU 


MAIN 

1460 

C2MASS=CMASS2*AAAR1T/AAAIGU 


MAIN 

14G1 

URITECG, 427) CMASS,CCMASS 


MAIN 

14G2 

427 FORMAT C 1H0, IX, *CORRECTEB MASS FLOU RATE OF MIXTURES, FB. 3, 


MAIN 

1463 

$*C*» FG.3,*)*) 


MAIN 

14G4 

URITECG, 428) CMASS2, C2MASS 


MAIN 

14G5 

428 FORMAT C1H0, IX, ^CORRECTED MASS FLOU RATE OF GAS PHASE *,FG.3, 


MAIN 

14GG 

$*C*» FG.3, *)*) 


MAIN 

1467 

URITECG, 429) OUALPR 


MAIN 

14G8 

429 FORMAT C 1H0, IX, *OUERALL TOTAL PRESSURE RATIOS, F6. 4) 


MAIN 

14G9 

URITECG, 430) OUALTR 


MAIN 

1470 
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430 FORMAT ( 1H0 » IX, ^QUERftLL TOTAL TEMPERATURE RATION, F 6 . 4) 
WRITECG, 431 ) OUALEF 

431 FORMAT ( 1H0 » 1X» ^OUERALL ADIABATIC EFFICIENCY^, F 6 . 4) 

WRITECG, 432) ODELTG 

432 FORMAT C 1H0, IX, ^OUERALL TEMPERATURE RISE OF GAS PHASER, F 8 . 3) 
GO TO 901 

998 STOP 
END 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE WICSPC C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE WICSPCCFAIO, ISTAGE, MM ASS, ALFA1, UKDONE, DAU, DELU, WMAS, 
$WWMAS,N, 

$0MEGA1 , 0MEGA2, 0MEGA3, 0MEGA4, OMEGAS, OMEGAS, OMEGAT, 

$BETA1» BETA2, UZ, ALFA2, ALFA3, DELTG, DELTU, W1 , W2, U1 , U2, U3, REAUE, 
$DELUU2, DELUL2, AK1, AK2, AK3) 

REAL M, MMASS 

COMMON /PERDUE/ JPERFM, RHOG (3) , RERUP, RERLOW, RESUP, RESLOW 
X, PREB, RRTIPC 8 ) »SRTIP( 8 ) » AAAI, AAA2, AAA3, SAREACG) , SAREASC7) 

X, P(3)»TG(3)»XA,XU(3), XCH4, XWC3) , XWWC3) , XWT C3) , TWO) , TWWC3) 

X, OMEGS ( 7 ) , OMEGR ( 6 ) , GAPR ( 6 ) » GAPS ( G ) 

X, RRHUBCG) , RCCG) , RBLADEC 6 ) , STAGER(G) 

X, SRHUBC7) , SC (7) , SBLADEC7) , STAGESC7) 

X, SIGUMR(G) , BET1SRCG) , BET2SRC6) , AINCSR(G) , ADEUSRCG) 

X, SIGUMSC7) , BET1SSC7) , BET2SS(7) , AINCSSC7) , ADEUSSC7) 

X, UTIPG(G) »UTIP(6) , UTIPDC6) > UOU(G) , UMEAN(G) , UHUB(G) , U(G) , FAI 
X , AREA (6) , AREAS ( 7 ) , UU2 (6) » UTIP2C 6) > UMEAN2 ( G ) , UHUB2 (6) , IPRINT 
X, I CENT, IICENT,FMR1(6),FMA2(G), I RAD, FA ID 
X, NS, NS 1 » RT ( G ) , RM ( G ) , RH ( 6 ) » ST ( 6 ) » SM ( 6 ) , SH ( 6 ) 

X, DSMASS, AAREAC7), AAREASC7), PR12DC6) , PR13DC6) , ETARD(G) 

X, DRCG ) , DS(G) , DEQRCG ) , DEQS( G ) , BLOCK (G ) , BL0CKSC7) 

X, BET1MRCG) , BET2MRC G) » BET1MS C7) , BET2MSC7) , RADI ICG), RADI2C6 ) 
DIMENSION RH0MC3), ETAACG) 

IPRINT=1 


CPW=1.0 
RH0W=G2. 3 
GC=32. 174 
AJ=778.2G 
PAI=3. 141592G 

CALL WICPRPCXA, XUC 1 ) , XCH4, TGC1), RMIX, CPMIX, GAMMA, G1 , G2, G3) 
RHOGC 1 )=P( 1 )/RMIX/TG(l ) 

BMASS=MMASS-WMAS-WWMAS 
AAA2=AREAS( ISTAGE) 
pi 3 = pi re A C ISTAGE+1 ) 

CALL WICMACC ISTAGE, BMASS, TGC 1 ) , PC 1 ) , M, UZ, C, XWTC 1 ) , ALFA1, 
$RMIX, CPMIX, AAAI) 

ASPEED=C 

ASPED1=ASPEED 


RHOG C 1 ) = ( 1 . 0+G2*M **2 ) **G3*RH0G ( 1 ) 

RHOMC 1 )-l . 0/( C 1 . O-XWTC 1 ) ) /RHOGC 1 )+XWTC 1 )/RH0W) 

UZ1=UZ 

UZZ=UZ 

FAI 1=UZ1/UTIPGC ISTAGE ) 

ALFA1R = ALFA1 * PAI / 180.0 
U1 = UZ / COS ( ALFA1R ) 

US1 = UZ * TAN C ALFA1R ) 

WS1 = UC ISTAGE)- US1 
T = WS1 / UZ 
BETA1R = ATAN C T) 

BETA1 = BETA1R * 180.0 / PAI 
TT = UZ **2 + WS1 **2 
U1 = SORT C TT ) 

AMACH1 = W1 / ASPEED 

AMAC1=U1/A3PEED 

TS1=TGC 1 )/C 1. 0+G2*AMACl**2) 

PS1=CTGC1)/TS1)**C-G1)*PC1) 

PREL1=C 1 . 0+G2*AMACHl**2)**Gl*PSl 
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47 
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48 

WICSPC 

49 

WICSPC 
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WICSPC 

51 

WICSPC 
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WICSPC 
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54 

WICSPC 

55 
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5G 

WICSPC 

57 

WICSPC 

58 

WICSPC 

59 

WICSPC 

GO 

WICSPC 

G1 
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FT 

k? 


TREL1=(1 . 0+G2*AMACHl**2)*TSl 
TG(2)=TG(1) 

P(2)=P(1) 

ALFA2=BET1SS( ISTAGE) 

JJJ=1 

2000 UZ2AS=UZ 

CALL WICGSLCOMEGRC ISTAGE) » SIGUMRC ISTAGE) » BET 1 SRC ISTAGE) , BET2SRC 
$ISTAGE ) , AIMCSR ( ISTAGE ) , ADEUSR ( ISTAGE ) , AMACH1 , BETA1 , DEQS, DEQM, 
SSITACS, SITACN, BET2M, OMEGAM, FMR1 ( ISTAGE) , IDESIM, AK1 , AK2, AK3, UZ1 , 
$UZ2AS* U( ISTAGE) , RADII C ISTAGE) » RADI2C ISTAGE) ) 

0MEGA7=0MEGAM 

BETA2=BET2N 

BETA1R=BETA1*PAI/180. 0 
BETA2R=BETA2*PAI/180.0 
EETAUE= ( BETA i R+BETA2R ) /2 . 0 
TAMGT=WI CTAM ( BETA1R) -UICTAM ( BETA2R ) 

CSAU=COS(BETAUE) 

CS1=C0S(BETA1R) 

CL=2. O/SIGUMRC ISTAGE)*TANGT*CSAU 
CDS=0.018*(CL**2) 

0MEGSE=CDS*SIGUMR(ISTAGE)*(CS1**2)/CCSAU**3) 

H=RRT IP ( ISTAGE ) -RRHUB C I STAGE ) 

SHR=RC ( ISTAGE ) /H/S I GUMR C I STAGE ) 

CDA=0.020*SHR 

□MEG AN=CDA*S IGUMR ( ISTAGE ) * ( CS1**2 ) / ( CSAU**3 ) 

IF ( IPRIMT.EQ.2) WRITECG, 2001 ) OMEGSE»OMEGAM, 0MEGA7»CDS,CDA 

2001 FORMAT C 1H0, 5F10 . 6) 

□MES1=0MEGSE 

0MEA1=DMEGAM 

AIMCIR=BETA1-BET1MRC ISTAGE) 

ADEUIR=BET2N-BET2MR( ISTAGE) 

BETA2R=BETA2*PAI/180.0 

U2=UZ/C0S(BETA2R) 

UG=(Ul+U2)/2.0 

CALL WICRSLC SIGUMRC ISTAGE) , BETA1, BETA2, RCC ISTAGE) , DAU, CDR, OMEGAR) 
0MEGA1=0MEGAR*2 . 0 

DELP1 =OMEGA1*0 . 5*RH0G C 1 ) /GC» ( Ul**2 ) 

IF (IPRIMT.EQ.2) WRITECG, 2002) OMEGA 1 , DELP1 

2002 FORMAT C 1H » IX, ^0MEGA1=^» 2F10 .5) 

XG=1 . O-XWT ( 1 ) 

CALL UI CIRL ( ISTAGE, RRTIPC ISTAGE ) , XWW C 1 ) , XG, RHOG Cl), BETA1 , W1 , UW1 , UW 
$2 f WW ) 

BMIMPR=WW 

IFC BMIMPR. GT. WWMAS) BMIMPR=UUMAS 
BMREBR=BMIMPR*PREB/100 . 0 
BMWAKR=BMIMPR* ( 1 . O-PREB/1 00 . 0 ) 

BMNOIR=WWMAS-BMIMPR 

XWWMOR=BMNOIR/MMASS 

XWWRER=BMREBR/MMASS 

XWUWAR=BMUAKR/MMASS 

IFC IPRIMT.EQ.2) WRITECG, GOSO) BMIMPR, BMREBR, BMWAKR, BMMOIR, XWWMOR, 
$XWWRER» XWWWAR 

GOSO FORMAT C 1H , 7CF12. 5, IX) ) 

RST1=RADI1(ISTAGE)**2-AAA1*144.0/2.D/PAI 
RST 1=SQRT C RST 1 ) 

RST2=2 . 0*RADI 1 ( ISTAGE ) **2-RSTl**2 
RST2=SQRT ( RST2 ) 

DELR= ( RST2-RST 1 ) / 12 . 0 
FMASSR=BMWAKR/DELR 

CALL WICFMLC W1 » U2, FMASSR, RHOGC 1 ) , RCC ISTAGE) , SIGUMRC ISTAGE) , BETA1 , 
$BETA2» CDF, OMEGAF) 

0MEGA2=0MEGAF 

DELP2=OMEGA2*0 . 5*RH0G C 1 ) /GC* C Wl**2 ) 

IFC IPRINT .EQ.2) URITECG, 6091 ) 0MEGA2, DELP2 
G0S1 FORMAT ( 1H , IX, ?*0MEGA2=*, 2F10 .5) 

U2=0 . 0 
U3=0 . 0 
ALFA=0. 0 
ALFA3=0 . 0 

CALL UICSTLC ISTAGE, 1 , DAU, W1 , W2, DELU, U2, U3, WWMAS, UZ»N» BETA1 , BETA2, 
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$ALFA2, ALFA3, BMASS* EELUU2, DELUL2, OMEGRU, ONEGRL, OMEGSU, OMEGSL, 

WICSPC 

133 

$DRAGRU» DRAGRL, DRAGSU, DRAGSL, REAUE ) 

UICSPC 

134 

0MEGA3=0MEGRU+0MEGRL 

WICSPC 

135 

DELP3=OMEGA3*0.5*RHOG(n/GC*(Ul**2) 

WICSPC 

136 

IF( IPRINT.EQ. 2) WRITEC6, 6092) 0MEGA3,DELP3 

WICSPC 

137 

6032 FORMAT ( 1H , IX, *0MEGA3=*, 2F10.5) 

WICSPC 

138 

REAUE1=REAUE 

WICSPC 

139 

BETA2R = BETA2 * PAI / 180.0 

WICSPC 

140 

JJ=1 

WICSPC 

141 

200 UZAS=UZ 

WICSPC 

142 

WS2 = UZ * TAN C BETA2R ) 

WICSPC 

143 

US2 = UU2( ISTAGE) - WS2 

WICSPC 

144 

TTT=US2/UZ 

WICSPC 

145 

ALFA2R = ATAN C TTT ) 

WICSPC 

146 

ALFA2 = ALFA2R * 180.0 / PAI 

WICSPC 

147 

TTTT = UZ ** 2 + WS2 ** 2 

WICSPC 

148 

W2 = SORT ( TTTT ) 

WICSPC 

149 

TTTTT = UZ ** 2 + US2 ** 2 

WICSPC 

150 

U2 = SORT C TTTTT ) 

WICSPC 

151 

DELH=WKDONE* (UU2CI STAGE ) *US2-U ( ISTAGE ) *US 1 ) /GC/A J 

WICSPC 

152 

CALL WICIRS ( ISTAGE, RRTIPC ISTAGE ) , XU ( 1 ) , XG, RHOG ( 1 ) , BETA1, Ml » WW1 , 

WICSPC 

153 

$WW2,WW) 

WICSPC 

154 

AMIMPR=WW 

WICSPC 

155 

IF(AMIMPR.GT.WMAS) AMIMPR^WMAS 

WICSPC 

156 

PREB=50 . 0 

WICSPC 

157 

AMR£BR=AMIMPR*PREB/100.0 

WICSPC 

158 

AMWAKR=AMIMPR*( 1 . 0-PREB/100. 0) 

WICSPC 

159 

AMNOIR=WMAS~AMIMPR 

WICSPC 

160 

XW1=0.0 

WICSPC 

161 

XW2=0. 0 

WICSPC 

162 

XW3=0. 0 

WICSPC 

163 

IFCWMAS.GT .0.0) XW1=AMN0IR/WMAS 

WICSPC 

164 

IFCWMAS.GT. 0.0) XW2=AMWAKR/WMAS 

WICSPC 

165 

IFCWMAS.GT. 0.0) XW3=AMREBR/WMAS 

WICSPC 

166 

DELTG=DELH/CPMIX 

WICSPC 

167 

DELTW1=DELH/CPW 

WICSPC 

168 

DELTW2=DELH/CPW 

WICSPC 

169 

DELTW3=0 . 0 

WICSPC 

170 

DELTW=XW1*DELTW1+XW2*DELTW2+XW3*DELTU3 

WICSPC 

171 

DETWW1=0. 0 

WICSPC 

172 

DETWW2=0.0 

WICSPC 

173 

DETWW3=0 . 0 

WICSPC 

174 

DELTWW=0. 0 

WICSPC 

175 

TW C 2 ) =TW ( 1 ) +DELTW 

WICSPC 

176 

TWW C 2 ) =TWW C 1 ) +DELTWW 

WICSPC 

177 

TG(2)=TG( 1 )+DELTG 

WICSPC 

178 

TS2=TG ( 2 ) -U2**2/ ( 2 . 0*CPMIX*GC*A J ) 

WICSPC 

179 

AG2= C GAMMA*RM IX*TS2*GC ) **0 . 5 

WICSPC 

180 

ASPEED=WICASD C XWT ( 1 ) , RHOG( 1 ) , AG2 ) 

WICSPC 

181 

ASPED2=ASPEED 

WICSPC 

182 

AMAC2=U2/ASPEED 

WICSPC 

183 

AMACH2=W2/ASPEED 

WICSPC 

184 

PP1-GAMMA*RM I X*TREL 1 *GC 

WICSPC 

185 

PP2= ( UU2 C I STAGE VU CIST AGE)) **2-1.0 

WICSPC 

186 

PP3=1 . 0+G2*UC ISTAGE)**2/PP1*PP2 

WICSPC 

187 

PP=PP3**G1 

WICSPC 

188 

PRREL=PP-C0MEGA7+0MEGA1+0MEGA2+0MEGA3)*C1 . 0-PS1/PREL1 ) 

WICSPC 

189 

PR1 2=C TG C2 ) /TG C 1 ) ) **G1 *PRREL 

WICSPC 

190 

PC 2)=PR12*P( 1 ) 

WICSPC 

191 

PS2= ( 1 . 0+G2*AMAC2**2 ) ** C -G 1 ) *P C 2 ) 

WICSPC 

192 

RH0G2=PS2/RMIX/TS2 

WICSPC 

193 

RHOG C 2 ) =RH0G2 

WICSPC 

194 

RH0M2=1 . 0/ C XG/RH0G2+XWT ( 1 ) /RHOW ) 

WICSPC 

195 

UZ=BMASS/RH0G2/AAA2 

WICSPC 

196 

UZ2-UZ 

WICSPC 

197 

EPS-1. OE-4 

WICSPC 

198 

IF( JJ.EQ.2) GO TO 201 

WICSPC 

199 

IFCJJ.GT.2) GO TO 202 

WICSPC 

200 

X1=UZAS 

WICSPC 

201 

Y1=UZ2 

WICSPC 

202 
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UZ=UZ2 

WICSPC 

203 

JJ=JJ+1 

WICSPC 

204 

IFC UZ.LT. 0. O.OR.UZ.GT. ASPEED) GO TO 999 

UICSPC 

205 

GO TO 200 

WICSPC 

206 

201 X2=UZAS 

UICSPC 

207 

Y2=UZ2 

WICSPC 

208 

UZ=WICNEW(X1» Yl* X2» Y2) 

WICSPC 

209 

IFCIPRIMT.EQ.2) WRITEC6.203) JJ.UZ 

WICSPC 

210 

203 FORMAT C 1H » IX, I1,2X,*UZ2=AF10.5) 

WICSPC 

211 

JJ=JJ+1 

WICSPC 

212 

IFCUZ.LT.O. O.OR.UZ.GT. ASPEED) GO TO 999 

WICSPC 

213 

GO TO 200 

WICSPC 

214 

202 IFCABSC CUZAS-UZ2)/UZAS) .LT.EPS) GO TO 300 

WICSPC 

215 

X1=X2 

WICSPC 

216 

Y1=Y2 

WICSPC 

217 

X2=UZAS 

WICSPC 

218 

Y2=UZ2 

WICSPC 

219 

UZ=WICMEW(X1» Yl» X2, Y2) 

WICSPC 

220 

IF( IPRIMT.E0.2) WRITEC6, 204) JJ.UZ 

WICSPC 

221 

204 FORMAT ( 1H0, IX, 11, 2X, *UZ2=*,F10.5) 

WICSPC 

222 

JJ=JJ+1 

WICSPC 

223 

IFCUZ.LT.O. O.OR.UZ.GT. ASPEED) GO TO 999 

WICSPC 

224 

IFCJJ.EQ.20) GO TO 999 

WICSPC 

225 

GO TO 200 

WICSPC 

226 

300 UZ2CL=UZ 

WICSPC 

227 

IFC JJJ.EQ.2) GO TO 2010 

WICSPC 

228 

IFC JJJ.GT.2) GO TO 2020 

WICSPC 

229 

XX1=UZ2AS 

WICSPC 

230 

YY1=UZ2CL 

WICSPC 

231 

JJJ=JJJ+1 

WICSPC 

232 

GO TO 2000 

WICSPC 

233 

2010 XX2=UZ2AS 

WICSPC 

234 

YY2=UZ2CL 

WICSPC 

235 

UZ=MI CMEW ( XX 1 , YY 1 , XX2 , YY2) 

WICSPC 

236 

IFCIPRIMT.EQ.2) URITEC G, 2030 ) JJJ, UZ 

WICSPC 

237 

2030 FORMAT C 1H , IX, 12, AJZ22=*,F10.5) 

WICSPC 

238 

JJJ=JJJ+1 

WICSPC 

239 

GO TO 2000 

WICSPC 

240 

2020 IFCABSC CUZ2AS-UZ2CD/UZ2AS) .LT.EPS) GO TO 3000 

WICSPC 

241 

XX1=XX2 

WICSPC 

242 

YY1=YY2 

WICSPC 

243 

XX2=UZ2AS 

WICSPC 

244 

YY2=UZ2CL 

WICSPC 

245 

UZ=WICMEW C XXI , YY1 , XX2 , YY2 ) 

WICSPC 

246 

IFCIPRIMT.EQ.2) WRITEC6, 2040 ) JJJ.UZ 

WICSPC 

247 

2040 FORMAT C 1H , IX, I2,*UZ22=*,F10.5) 

WICSPC 

248 

JJJ=JJJ+1 

WICSPC 

249 

IFC JJJ. EQ. 20) GO TO 3000 

WICSPC 

250 

GO TO 2000 

WICSPC 

251 

3000 UZ2=UZ2CL 

WICSPC 

252 

F A 1 2= UZ2/UT I PG C I ST AGE ) 

WICSPC 

253 

P C 2 ) = C 1 . 0+G2*AMAC2**2 ) **G 1*PS2 

WICSPC 

254 

JJJJ=1 

WICSPC 

255 

3001 UZ3AS=UZ 

WICSPC 

256 

CALL WICGSLCGMEGSC ISTAGE) » SIGUMSC ISTAGE) » BET1SSC ISTAGE) , BET2SS 

WICSPC 

257 

$C ISTAGE) , AIMCSS C ISTAGE) , ADEUSSC ISTAGE) , AMAC2, ALFA2, DEQS, DEQM, 

WICSPC 

258 

$SITACS, SITACM, BET2M, OMEGAN, FMA2C ISTAGE) , IDESIM, AK1 , AK2, AK3, UZ2, 

WICSPC 

259 

$UZ3AS, 0.0, RADI2C ISTAGE) , RADII C ISTAGE+1 ) ) 

WICSPC 

260 

0MEGA8=QMEGAM 

WICSPC 

261 

ALFA3=BET2M 

WICSPC 

262 

ALFA1R=ALFA2*PAI/180 . 0 

WICSPC 

263 

ALFA2R=ALFA3*PAI/180 . 0 

WICSPC 

264 

ALFAAU=C ALFAlR+ALFA2R)/2. 0 

WICSPC 

265 

TAMGT= W ICTAM C ALFAi R ) -WICT AM C ALFA2R ) 

WICSPC 

266 

CSAU=CDS C ALF AAU ) 

WICSPC 

267 

CS1=C0S CALF AIR) 

WICSPC 

268 

CL=2. 0/SIGUMSC ISTAGE)*TAMGT*CSAU 

WICSPC 

269 

CDS=0 . 0 1 8* C CL.**2 ) 

WICSPC 

270 

OMEGSE=CDS*S IGUMS C I STAGE ) * C CS 1 **2 ) / C CSAU**3 ) 

WICSPC 

271 

H=SRT I P C I STAGE ) -SRHUB C I STAGE ) 

WICSPC 

272 
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SHR=SC C I STAGE ) /H/S IGUMR C I STAGE ) 

WICSPC 

273 

CDA=0.020*SHR 

WICSPC 

274 

OMEG AM=CDA*S I GUMS ( I STAGE ) * ( CS 1 **2 ) / ( C5AU**3 ) 

WICSPC 

275 

IFCIPRIMT.EQ.2) WRITECG, 3002) 

WICSPC 

27G 

$OMEGSE» OMEGAM, OMEGAS, CDS, CDA 

WICSPC 

277 

3002 FORMAT ( 1H0 , 5F1 0 . 5 ) 

WICSPC 

278 

0MES2=0MEGSE 

WICSPC 

273 

0MEA2=0MEGAM 

WICSPC 

280 

AIMCIS=ALF A2-BET 1 MS ( ISTAGE) 

WICSPC 

281 

ADEUIS=BET2M-BET2MS( ISTAGE) 

WICSPC 

282 

ALFA3R=ALFA3*PA 1/180 . 0 

WICSPC 

283 

U3=UZ/C0SCALFA3R) 

WICSPC 

284 

CALL WICRSL ( SIGUMS ( ISTAGE ) , ALFA2, ALFA3 , SC C ISTAGE) , DAU, CDR* OMEGAR) 

WICSPC 

285 

OMEGA4=OMEGAR*2.0 

WICSPC 

28G 

DELP4=OMEGA4*0 . 5*RH0G ( 2 ) /GC* C U2**2 ) 

WICSPC 

287 

IFCIPRIMT.EQ.2) WRITECG, 3003) 0MEGA4»DELP4 

WICSPC 

288 

3003 FORMAT C 1H , IX, *0MEGA4=?*, 2F10.5) 

WICSPC 

289 

CALL WICISLC ISTAGE, SRTIPC ISTAGE), XWWC2) , XG, RHOGC2) , ALFA2, U2, WW1 

WICSPC 

290 

$, WW2, WW) 

WICSPC 

291 

BMIMPS=WW 

WICSPC 

292 

IFCBMIMPS.GT. WWMAS) BMIMPS=WWMAS 

WICSPC 

293 

BMREBS=BMIMPS*PREB/100 . 0 

WICSPC 

294 

BMWAKS=BMIMPS* ( 1 . O-PREB/1 0 0.0) 

WICSPC 

295 

IF ( IPRINT.EQ.2) WRITECB, GG1G) 

WICSPC 

29G 

GG1G FORMAT C 1H , IX, ^IMPIMS*) 

WICSPC 

297 

IFCIPRIMT.EQ.2) WRITECB, 661?) XWWC2) , XA, RH0GC2) , UZ, WW, BMIMPS, BM 

WICSPC 

298 

$REBS,BMWAKS 

WICSPC 

299 

GG17 FORMAT C 1H , SCF12. 5, IX) ) 

WICSPC 

300 

RST1=RADI2C ISTAGE)**2~AAA2*144. 0/2. O/PAI 

WICSPC 

301 

RST 1=SQRT C RST 1 ) 

WICSPC 

302 

RST2=2 . 0*RAD 12 C ISTAGE ) **2-RSTl**2 

WICSPC 

303 

RST2=SQRT ( RST2 ) 

WICSPC 

304 

DELR= C RST2-RST 1 ) / 1 2 . 0 

WICSPC 

305 

FMASSS=BMWAKS/DELR 

WICSPC 

30S 

CALL WICFML C U2, U3, FMASSS, RH0G2, SCC ISTAGE) , SIGUMSC ISTAGE) , BETA1 , 

WICSPC 

307 

$BETA2» CDF » OMEGAF) 

WICSPC 

308 

QMEGA5=0MEGAF 

WICSPC 

309 

DELP5=OMEGA5*0 . 5*RH0G C 2 ) /GC* C U2**2 ) 

WICSPC 

310 

IFCIPRIMT.EQ.2) WRITECG, GG18) 0MEGA5,DELP5 

WICSPC 

311 

GG18 FORMAT C 1H , IX, ^0MEGA5=^, 2F10.5) 

WICSPC 

312 

CALL WICSTLC ISTAGE, 2, DAU, Wl, W2, DELU, U2, U3, WWMAS, UZ, M, BETA1, BETA2, 

WICSPC 

313 

SALFA2, ALFA3, BMASS, DELUU2, DELUL2, OMEGRU, OMEGRL, OMEGSU, OMEGSL, 

WICSPC 

314 

$DRAGRU, DRAGRL, DRAGSU, DRAGSL, REAUE) 

WICSPC 

315 

OMEGA6=OMEGSU+OMEGSL 

WICSPC 

31G 

DELPG=OMEGAG*0 . 5*RH0G C 2 ) /GC* C U2**2 ) 

WICSPC 

317 

IFCIPRIMT.EQ.2) WRITECG, GG1S) QMEGAG, DELPG 

WICSPC 

318 

GG1S FORMAT C 1H , IX, ^0MEGAG=^, 2F10 . 5) 

WICSPC 

319 

REAUE2=REAUE 

WICSPC 

320 

REAUE=(REAUE1+REAUE2)*0 . 5 

WICSPC 

321 

PR23=1 . 0- C 0MEGA8+0MEGA4+0MEGA5+QMEGAG ) * C 1 . 0-PS2/PC2) ) 

WICSPC 

322 

PR 1 3= C TG C 2 ) /TG C 1 ) ) **G 1 *PRREL*PR23 

WICSPC 

323 

PR13I=CTGC2)/TGC 1 ) )**Gi 

WICSPC 

324 

PC3)=PR13*PC 1 ) 

WICSPC 

325 

TG(3)=TGC2) 

WICSPC 

32G 

TS3=TG C 3 ) -U3**2/ C 2 . 0*CPM I X*GC*AJ ) 

WICSPC 

327 

AG3= C GAMMA*RMIX*TS3*GC ) **0 . 5 

WICSPC 

328 

ASPEED=WICASD C XWT C 1 ) , RHOG C 2 ) , AG3 ) 

WICSPC 

329 

ASPED3=ASPEED 

WICSPC 

330 

AMAC3=U3/ASPEEE 

WICSPC 

331 

PS3= C 1 . 0+G2*AMAC3**2 ) ** C -G1 ) *P C 3 ) 

WICSPC 

332 

RH0G3=PS3/RMIX/TS3 

WICSPC 

333 

RH0GC3)=RH0G3 

WICSPC 

334 

RH0M3= 1 . 0/ C XG/RH0G3+XWT C 1 ) /RHOW ) 

WICSPC 

335 

UZ=BMASS/RH0G3/AAA3 

WICSPC 

33G 

UZ3CL=UZ 

WICSPC 

337 

IFC JJJJ.EQ.2) GO TO 3010 

WICSPC 

338 

IFCJJJJ.GT.2) GO TO 3020 

WICSPC 

339 

XXX1=UZ3AS 

WICSPC 

340 

YYY1=UZ3CL 

WICSPC 

341 

JJJJ=JJJJ+1 

WICSPC 

342 
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GO TO 3001 
3010 XXX2=UZ3AS 
YYY2=UZ3CL 

UZ=WICNEW ( XXXI , YYY1, XXX2, YYY2) 

IFCIPRINT.EQ.2) WRITECG, 3030 ) JJJJ,UZ 
3030 FORMAT ( 1H , IX, 12, 2X, /UZ33=/, F10.5) 

JJJJ=JJJJ+1 
GO TO 3001 

3020 IF (ABS((UZ3AS-UZ3CL)/UZ3AS ).LT.EPS) GO TO 4000 
XXXi=XXX2 
YYY1=YYY2 
XXX2=UZ3AS 
YYY2=UZ3CL 

UZ=W I CNEW C XXX 1 , YYY 1 , XXX2, YYY2 ) 

IFCIPRINT.EQ.2) WRITECG, 3040) JJJJ,UZ 
3040 FORMATC1H , IX, I2,/UZ33=/,F10.5) 

JJJJ=JJJJ+1 

IFC JJJJ.EQ.20) GO TO 4000 
GO TO 3001 
4000 UZ3=UZ3CL 

FAI3=UZ3/UTIPGC ISTAGE+1 ) 

TU(3)=TW(2) 

TWW(3)=TW(2) 

OMEGTR=OMEGA1+OMEGA2+OMEGA3+OMEGA7 
0MEGTS=0MEGA4+0MEGA5+0MEGAG+0MEGA8 
POMEG1=OMEGA1/DMEGTR*100 . 0 
POMEG2=OMEGA2/OMEGTR*100. 0 
POMEG3=OMEGA3/OMEGTR*1 0 0 . 0 
POMEG4=OMEGA4/0MEGTS*100. 0 
POMEG5=OMEGA5/QMEGTS*100.0 
POMEG6=OMEGAG/OMEGTS*1 0 0 . 0 
POMEG7=DMEGA7/OMEGTR*100.0 
P0MEG8=0MEGA8/GMEGTS*1 0 0 . 0 
PRATIO=PC3)/P(l) 

TRATI0=TG(3)/TG( 1 ) 

CALL WICPRP CXA, XUC3) , XCH4, TG(3) , RMIX, CPMIX, GAMMA, Gl, G2, G3) 
G4=1.0/G1 

ETAAC ISTAGE)=(PRATI0**G4~1 . 0 )/CTRATIO-l . 0 ) 

WRITE(6»404) FAIO, ISTAGE 

404 FORMAT ( 1H1 , IX, ;***»*»**************• IX, 

$/INITI AL FLOW COEFFICIENT-/, IX, F5. 3, IX, /(STAGE=/, 12, IX, 

$/)/, 2X, /K-**tt**«**-»***-»Hfr***tt*?i ) 

WRITECG, 401 ) PRATIO, TRATIO, ETAAC ISTAGE) 

401 FORMAT ( 1H0 > 5X, ISTAGE TOTAL PRESSURE RATIO=/, F12. 5, /, 

$GX, ISTAGE TOTAL TEMPERATURE RATIO=/, F12. 5, /, 

$GX, /STAGE ADIABATIC EFFICIENCY^, FI 2. 5) 

WRITECG, 402) FAI 1 , UZ1 , UTIPGC ISTAGE ) 

402 FORMAT ( 1H0, 5X» ISTAGE FLOW COEFFICIENTS, F5. 3,/, 

$GX, /AXIAL UELOCITY=/> F7.2,/» 

$6X, /ROTOR SPEEDS, F7. 2,/) 

WRITECG, 403) PR13, PR13I, PRREL, PR23 

403 FORMAT C 1H ,5X, /STAGE TOTAL PRESSURE RATIOC ACTUAL )S, F12.5, /, 
$GX, /STAGE TOTAL PRESSURE RATIOC IDEADS, F12. 5, /, 

$6X,/LGSS FACTOR IN ROTORS, F12. 5, /, 

$GX,/LOSS FACTOR IN STATORS, F12. 5, /) 

WRITECG, 405) 

405 FORMAT C 1H0, 24X, /*ROTOR INLET* *ROTOR OUTLET* *STATOR OUTLET*/) 
WRITECG, 40G) PC 1 ) , PC2) , PC 3) 

40G FORMAT C 1H , IX, /TOTAL PRESSURE/, 10X, 3CF10. 4, 5X) ) 

WRITECG, 407) PS1,PS2,PS3 

407 FORMAT C 1H , IX, /STATIC PRESSURE/, 9X, 3 CF10 . 4, 5X) ) 

WRITECG, 408) TGC 1 ) » TGC2) »TGC3) 

408 FORMAT C 1H , IX, /TOTAL TEMPERATURE (GAS)/, 3X,3CF10.4»5X)) 

WRITECG, 409) TS1,TS2,TS3 

409 FORMAT ( 1H , IX, /STATIC TEMPERATURE CGAS)/, IX, 3CF10 . 4, 5X) ) 
WRITECG, 410) RHOG ( 1 ) , RH0G2, RHQG3 

410 FORMAT C 1H , IX, /STATIC DENSITY CGAS)/, 5X, 3CF10 . 4, 5X) ) 

WRITECG, 411) RHOMC 1 ) , RH0M2, RH0M3 

411 FORMAT ( 1H , IX, /STATIC DENSITY (MIXTURE)/, 1X,3(F10.4»5X)) 
WRITECG, 412) UZ1,UZ2,UZ3 
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412 FORMAT C 1H0, IX, *AXIAL UELOCITY*, 10X, 3CF10 . 4, 5X) ) 

WRITECG, 413) U1.U2.U3 

413 -FORMAT (1H , IX, ^ABSOLUTE UELOCITY*, 7X, 3CF10.4, 5X) ) 

WRITEC6, 414) W1,W2 

414 FORMAT ( 1H » IX, *RELATIUE UELOCITY*, 7X, 2CF10. 4, 5X) ) 

WRITEC6, 415) U( ISTAGE) , UU2( ISTAGE) , U( ISTAGE+1 ) 

415 FORMAT ( 1H » IX, *BLADE SPEEDS, 13X, 3CF10 . 4. 5X) ) 

WRITEC6, 416) US1,US2 

41G FORMAT ( 1H , 1X,*TANG. COMP. OF ABS. UEL. *, 2CF10 . 4. 5X) ) 

WRITEC6, 417) WS1 > USB 

417 FORMAT ( 1H , 1X,*TANG. COMP. OF REL. UEL. *, 2CF10 . 4. 5X) ) 

WRITE C G. 418 ) ASPED 1 , ASPED2, ASPED3 

418 FORMAT ( 1H » IX, *ACQUSTIC SPEEDS 10X, 3CF10 . 4. 5X) ) 

WRITEC6, 419) AMAC1, AMAC2, AMAC3 

419 FORMAT C 1H , IX, *ABSOLUTE MACH NUMBER*, 4X, 3CF10 . 4, 5X) ) 

WRITECG,420) AMACH1, AMACH2 

420 FORMAT ( 1H , IX, *RELATIUE MACH NUMBER*, 4X, 2CF10 . 4, 5X) ) 

WRITECG, 421 ) FAI 1 , FAI2, FAI3 

421 FORMAT ( 1H0, IX, *FL0W COEFFICIENT*, 8X, 3CF10 . 4, 5X) ) 

WRITECG, 422) AAAI, AAA2, AAA3 

422 FORMAT C 1H ,1X,*FL0W AREA*, 15X, 3CF10.4, 5X) ) 

WRITECG, 423) ALFA1, ALFA2, ALFA3 

423 FORMAT C 1H0, IX, *ABSOLUTE FLOW ANGLE*, 5X, 3CF10.4, 5X) ) 

WRITECG, 424) BETA1, BETAS 

424 FORMAT C 1H , IX, *RELATIUE FLOW ANGLE*, 5X, 3CF10 . 4, 5X) ) 

WRITECG, 425) AINCIR, AINCIS 

425 FORMAT C 1H , IX, INCIDENCE*, 1GX, 2CF1 0 . 4, 5X) ) 

WRITECG, 42G) ADEUIR, ADEUIS 

42G FORMAT C 1H , IX, *DEUIATION*, 30X, 2CF10 . 4, 5X) ) 

990 RETURN 
END 

C+++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++ 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

SUBROUTINE WICMAC C 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE WICMACC ISTAGE, AMASSM, T01G, PRES, M, UZ, C, XW1 , ALFA, 

$RMIX» CPMIX, AREA1 ) 

REAL M , MAI, MCI , MA2, MC2, MANEW, MCNEW 

COMMON /PERDUE/ JPERFM, RH0GC3) , RERUP, RERLOW, RESUP, RESLOW 
X, PREB, RRTIPC8) , SRTIPC8) , AAAI, AAA2, AAA3, SAREACG) , SAREASC7) 

X, PC3) , TGC3) » XA» XUC3) » XCH4, XWC3) , XWWC3) , XWTC3) , TWC3) , TWWC3) 

X, OMEGS C 7 ) , OMEGR C G ) , GAPR C G ) , GAPS C G ) 

X, RRHUBCG) , RCCG) , RBLADECG) , STAGERCG) 

X, SRHUBC7) , SCC7) , SBLADEC7) , STAGESC7) 

X, SIGUMRCG) , BET1SRCG) , BET2SRCG) , AINCSRCG) , ADEUSRCG) 

X, SIGUMSC7) , BET1SSC7) , BET2SSC7) , AINCSSC7 ) , ADEUSSC7) 

X, UTIPGCG) , UTIPCG) , UTIPDCG) , UOUCG) , UMEANCG) , UHUBC G) , UCG) , FAI 
X, AREA C G ) , AREAS C7) , UU2CB) , UTIP2CG) , UMEAN2 C G ) , UHUB2 C S ) , I PR INT 
X, I CENT , I I CENT , FMR1 CG) , FMA2CG) , IRAD, FAID 
X, NS, NS1 , RTCG) , RMCG) , RHCG) , STCG) » SMCG) , SHCG) 

X, DSMASS, AAREA C 7 ) , AAREAS C 7 ) , PR 1 2D C G ) , PR13D C G ) , ETARD C G ) 

X, DRC6) »DSC6) .DEQRCG) , DEQSCG), BL0CKC6) , BL0CKSC7) 

X, BET1MRCG) , BET2MRCG) , BET1MSC7) , BET2MSC7) , RADII CG) , RADI2CG) 

GAMMA=1 .0/Cl. O-RMIX/CPMIX/778. 0 ) 

G2=( GAMMA-1. 0)/2.0 
G3=-1.0/C GAMMA-1.0) 

MA1=0 . 5 

RH0G1=PRES/RMIX/T01G 

RHOGS=C 1 . 0+G2*MAl**2)**G3*RH0Gl 

RH0W=62. 4 

RHOMS=l . 0/C C 1 . 0-XW1 )/RHOGS+XWl/RHOW) 

TS=T01G/C 1 . 0+G2*MAl**2) 

A=SQRT CGAMMA*RMIX*TS*32. 174) 

C=WICASDCXW1, RHOGS, A) 

IFC JPERFM . NE. 3 ) UZ=AMASSM/RH0MS/AREA1 
IFC JPERFM . EQ . 3 ) UZ-AMASSM/RHOGS/AREA1 
IFCAMASSM.LT. 0.001) UZ=UTIPG( ISTAGE )*FAI 
ALFAR=ALFA*3 . 1415927/180 . 0 


WICSPC 

413 

WICSPC 

414 

WICSPC 

415 

WICSPC 

41G 

WICSPC 

417 

WICSPC 

418 

WICSPC 

419 

WICSPC 

420 

WICSPC 

421 

WICSPC 

422 

WICSPC 

423 

WICSPC 

424 

WICSPC 

425 

WICSPC 

426 

WICSPC 

427 

WICSPC 

428 

WICSPC 

429 

WICSPC 

430 

WICSPC 

431 

WICSPC 

432 

WICSPC 

433 

WICSPC 

434 

WICSPC 

435 

WICSPC 

43G 

WICSPC 

437 

WICSPC 

438 

WICSPC 

439 

WICSPC 

440 

WICSPC 

441 

WICSPC 

442 

WICSPC 

443 

WICMAC 

1 

WICMAC 

2 

WICMAC 

3 

WICMAC 

4 

WICMAC 

5 

WICMAC 

G 

WICMAC 

7 

WICMAC 

8 

WICMAC 

9 

WICMAC 

10 

WICMAC 

11 

WICMAC 

12 

WICMAC 

13 

WICMAC 

14 

WICMAC 

15 

WICMAC 

1G 

WICMAC 

17 

WICMAC 

18 

WICMAC 

19 

WICMAC 

20 

WICMAC 

21 

WICMAC 

22 

WICMAC 

23 

WICMAC 

24 

WICMAC 

25 

WICMAC 

2G 

WICMAC 

27 

WICMAC 

28 

WICMAC 

29 

WICMAC 

30 

WICMAC 

31 

WICMAC 

32 

WICMAC 

33 

WICMAC 

34 

WICMAC 

35 

WICMAC 

3G 

WICMAC 

37 

WICMAC 

38 

WICMAC 

39 


200 



MCI =UZ/C/COS ( ALFAR ) 

MA2— 0 ^ g 

RHOGS=( 1 . 0+G2*MA2**2 ) **G3*RH0G1 
RH0MS=1 .0/( ( 1 . 0-XWl )/RHOGS+XWl/RHOW) 
TS=T01G/(1 . 0+G2*MA2**2) 

A=SGRT ( GAMMA*RMIX*TS*32 . 174 ) 
C=WICASD(XW1» RHOGS, A) 

I F ( JPERFM . ME . 3 ) UZ=AMASSM/RHOMS/AREAl 
I F ( JPERFM . EQ . 3 ) UZ=AMASSM/RHOGS/ AREA 1 
I F ( AM ASSM . LT . 0 . 0 0 1 ) UZ=UT IPG C I ST AGE ) *F A I 
MC2=UZ/C/C0S ( ALFAR ) 

J=1 

300 M ANEW=W I CNEW (MAI* MCI , MA2, MC2 ) 

RHOGS=( 1 . 0+G2*MANEW**2)**G3*RHOG1 
RHOMS=l . 0/ ( (1 . 0-XW 1 ) /RHOGS+XW1 /RHOW ) 
TS=T01G/( 1 . 0+G2*MANEW**2) 
A=SQRT(GAMMA*RMIX*TS*32. 174) 

C=W I C ASD ( X W 1 , RHDGS , A ) 

I F ( JPERFM . NE . 3 ) UZ=AMASSM/RH0MS/AREA1 
IF ( JPERFM . EQ . 3 ) UZ=AMASSM/RH0GS/AREA1 
I F C AMASSM . LT . 0 . 0 0 1 ) UZ=UT I PG ( I STAGE ) *F AI 
MCNEW=UZ/C/COS ( ALFAR ) 

ERROR=ABS C MAMEQ-MCMEW ) 

ERROR=ERROR/MAMEU 
EPS=1 . OE-6 

IFCERROR.LT.EPS) GO TO 200 

MA1=MA2 

MC1=MC2 

MA2=MAMEW 

MC2=MCMEW 


J=J+1 

IF( J. LT. 50 ) GO TO 300 
WRITE(6> 403) ISTAGE 

403 FORMAT ( 1H0»^MZ DOES MOT CONUERGE AT STAGED, ID 
GO TO 998 
200 M=MAMEW 

IFCAMASSM.LT. 0. 001) ISTAGE=0 
998 RETURM 
END 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c c 

C FUNCTION WICASD C 

C C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
FUNCTION LIICASD C XW , RHOG , CG ) 

RH0U=G2.25S7 
CW = 495G.04 

SIGUMA = C XW * RHOG ) / ( RHOW - XW * C RHOW - RHOG )) 

Al = ( 1.0-SIGUMA ) * RHOG + SIGUMA * RHOW 
A2 = ( 1.0- SIGUMA ) / ( RHOG * CG* CG ) 

A3 = SIGUMA / ( RHOW * CW* CW) 

A4 = Al * ( A2 + A3) 

WICASD =1.0/ SORT ( A4 ) 

RETURN 

END 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c c 

c SUBROUTINE WICBOA C 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE WICBOA (OMEGAS, SIGUMA, BET1S, BET2S, AINCIS, ADEUIS, AMACH1, 
1BET1, DEQS, DEON, SITACS, SITACN, BET2N, X, AK1 , AK3, UZ1 , UZ2, UR1 , R1 , R2) 
CALL WICEDDC AK3, UZ1 , UZ2, UR1, R1 , R2, BET1S, BET2S, SIGUMA, OMEGAS, 

$DEQS, SITACS) 

AINCI=BET1+AINCIS~BET1S 

BET2A=BET2S 

X1=BET2A 

DELDEO=WICED( AK3, UZ1, UZ2, UR1, Rl, R2, BET1, XI, SIGUMA, AINCIS, AINCI) 
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$-DEQ5 

ADEUI=ADEUIS+ ( 6 . 40-9 . 45*AMACHl+9. 45*X ) *DELDEQ*AK1 

IF(AMACHl.LT.X) ADEUI=ADEUIS+G.40'*DELDEG*AK1 

BET2C=BET2S-ADEUIS+ADEUI 

Y1=BET2C 

N=1 

12 IFCN.GT. 1 ) GO TO 10 
BET2A=BET2S*1.1 
10 X2=BET2A 

DEQN=WICED ( AK3, UZ1 , UZ2, UR1 , R1 , R2, BET1» X2, SIGUMA, AINCIS, AIMCI ) 
DELDEO=DEON-DEQS 

ADEUI=ADEUIS+ ( G . 40-9. 45*AMACHi+9 . 45*X ) *DELDEQ*AK1 
I F C AMACH 1 . LT . X ) ADEU I=ADEUI3+G . 40*DELDEQ*AK 1 
EET2C=BET2S-ADEUIS+ADEUI 
Y2=BET2C 

DELBET=ABS( (X2-Y2)/X2) 

EPS=1.0E-G 

IF ( DELBET . LE . EPS ) GO TO 11 
BET2 A= W I CNEW (XI, Yl» X2» Y2) 

X1=X2 

Y1=Y2 


N=N+1 

IFCM.GT. 50) GO TO 13 
GO TO 12 
11 BET2N=X2 
GO TO 15 
13 WRITECG, 20 1 ) 

201 FORMAT ( 1H0 » ^DO MOT CONUERGEtO 
15 RETURN 
EMD 


C +++++++++++++++++++++++++++++++++++ +++++++++ + ++++++++++++++++++++++++ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c c 

C SUBROUTINE WICEDD C 

C C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
SUBROUTINE WICEDD CAK3, UZ1 , UZ2» UR1, R1 , R2, BET1S, BET2S, SIGUMA. 


$OMEGAS, DEQS, SITACS) 

01=180.0/3.1415926 
BET 1SR=BET1 S/Cl 
BET2SR=BET2S/C1 
CSB1=C0S(BET1SR) 

CSB2=C0S ( BET2SR ) 

CSCS=CSB2/CSB1*(UZ1/UZ2) 

CSCSS=CSB2/CSB1 

TNB1=WICTAN(BET1SR) 

TNB2=WICTAN(BET2SR)*(UZ2/UZ1)*(R2/R1) 
TNTN=TNB1-TNB2-CUR1/UZ1 ) *C 1 . 0-CR2/R1 )**2) 
DEQS=1 . 12*CSCS+0 . 61*( CSB1**2)/SIGUMA*TNTN*CSCS 


DEQS=AK3-“DEQS 

SITACS=OMEGAS*CSB2/2.0/SIGUMA*(CSCSS**2) 

RETURN 

END 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c C 

C FUNCTION WICED C 

c C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
FUNCTION WICEDC Al<3» UZ1 , UZ2, UR1 , R1 , R2, BET1 , BET2, SIGUMA, AINCIS, 


$AINCI ) 

Cl=180.0/3. 141592G 
BET1R=BET1/C1 
BET2R=BET2/C1 
CSB1=C0S(BET1R) 

CSB2=C0S(BET2R) 

CSCS=CSB2/CSB1*CUZ1/UZ2) 

TNB1=WICTAN C BET 1R ) 

TNB2=W I CTAN (BET2R)*( UZ2/UZ 1 ) * ( R2/R 1 ) 
TNTN=TNB1-TNB2-(UR1/UZ1)*(1.0-(R2/R1)**2) 
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DE01=1 . 12*CSCS 
AAA=ABS( AINCI-AINCIS) 

DEQ2=0 . 0 1 17* ( AAA**1 . 43) *C5CS 

DE03=0 . 6 1 * ( CSB 1**2) /SIGUM A*TNTN*CSCS 

WICED=DEQ1+DE02+DEQ3 

WICED=AK3*WICED 

RETURN 

END 

C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c c 

C FUNCTION WICMTK C 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

FUNCTION WICMTK (SITACS, ANACH1 , DELDEQ, AK2) 

IFCDELDEQ.LT. 0.0) GO TO 10 

A1=0.827*AMACH1 

A2=2.G92*(AMACH1**2) 

A3=2 . G75* C AN ACH 1 **3 ) 

A=A1~A2+A3 

WI CMTK=S ITACS+ A* ( DELDEQ**2 ) * AK2 
GO TO 11 

10 B1=2.80*AMACH1 
B2=8.71*( AMACH1**2) 

B3=9. 36* (AMACH 1**3) 

B=B1-B2+B3 

WICMTK=SITACS+B*(DELDEQ**2)*AK2 

11 RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


FUNCTION WICLOS 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
FUNCTION UICL05CBET 1 » BET2, SIGUMA, SITA) 

Cl=180 . 0/3. 141592G 
BET1R=BET1/C1 
BET2R=BET2/C1 
CSB1=C0S(BET1R) 

CSB2=C0SCBET2R) 

CSCS=CSB1/CSB2 

UICL0S=SITA*2 . 0*S IGUMA/CSB2* C CSCS**2 ) 

RETURN 

END 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c c 

C SUBROUTINE WICIRS C 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE WICIRSC ISTAGE, R, XW1 , XG, RHDG1 , BETA1 , Wl , 

1UW1 , WW2 , WW ) 

REAL LHC 

COMMON /PERDUE/ JPERFM, RH0GC3) , RERUP, RERLOW, RESUP, RESLOW 
X, PREB , RRT I P ( 8 ) , SRT I P ( 8 ) , AAA 1, AAA2, AA A3 , S AREA ( 6 ) , S ARE AS ( 7 ) 

X, P(3)»TG(3)»XA»XU(3)» XCH4, XWC3) , XWWC3) , XWT (3),TU(3), TWWC3) 

X, OMEGS ( 7 ) » OMEGR ( G ) , GAPR ( G ) , GAPS ( 6 ) 

X, RRHUBCG) , RCCG) , RBLADECG) , STAGERCG) 

X, SRHUBC7) , SC (7) , SBLADEC7) , STAGESC7) 

X, SIGUMRCG) , BET1SRCG) , BET2SRCG) , AINCSR(G) , ADEUSRCG) 

X, SIGUMSC7) , BET1SSC7) , BET2SSC7) , AINCSSC7) , ADEUSSC7) 

X, UTIPG(6),UTIP(6),UTIPD(6), UOUCG) , UMEANCG) , UHUBCG) , UCG) , FAI 
X , AREA ( 6 ) , AREAS C7) , UU2CG) , UTIP2CG) , UMEAN2 (G) , UHUB2 ( 6 ) , I PR I NT 
X, I CENT, IICENT* FMR1 ( B) , FMA2CG) , IRAD, FAID 
X, NS,NS1,RT(G),RM(6),RH(6),ST(G),SM(S),SHCG) 

X , DSMASS , A AREA ( 7 ) , A ARE AS ( 7 ) , PR 1 2D C B ) , PR 1 3D C G ) , ET ARD C 6 ) 

X, DRCG) , DSCG) , DEQRCG) , DEQSCG) , BLOCKCG) , BL0CKSC7) 

X, BET1MRCG) , BET2MRCG) , BET1MSC7) , BET2MSC7) , RADII CG) , RADI2CG) 

N = I STAGE 
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n n n 


PA I = 3.1415926 
B1 = 1.0 

B2R = C 90.0 - EETA1 + STAGER C N ) ) * PAI / 180.0 
B2 = COS C B2R ) 

LUC=XU1/XG*RH0G1 

DS1=0.07*RC(N) 

BETA1R = BETA1* PAI / 180.0 

DS2 = 2.0 * PAI * R / RBLADECN) * COS (BETA1R) / 

SC0SCB2R) 

IF(DS2, GE. RC(N) ) DS2=RC(N) 

H=(AAA1*144.0)/(2.0*PAI*R) 

Ai=DSl*H*RBLADE(N)/144.0 

A2=DS2*H*RBLADE ( N ) / 144 . 0 

U!U!1 = LU!C * U1 * B1 * A1 

UU2 = LUC * U1 * B2 * A2 

UU = UU1 + UU2 

RETURN 

END 

C+++++++++++++++++++++++++++++++++++++++-H-++++++++++++++++++++++++++++++ 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

SUBROUTINE UICIRL C 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE UICIRL C .ISTAGE, R, XU1 , XG, RHOG1 , BETA1 , U1 , 

iuui » uu 2 > uu ) 

REAL LUC 

COMMON /PERDUE/ JPERFM, RH0GC3) > RERUP, RERLOU, RESUP, RESLOU 
X, PREB, RRTIP(S), SRTIPC8) , AAAI , AAA2, AAA3, SAREAC6) » SAREASC7) 

X, P(3),TGC3),XA,XU(3),XCH4,XUC3),XUU(3),XUT(3),TU(3),TUU(3) 

X , OMEGS C 7 ) , OMEGR (G) , GAPR C G ) , GAPS ( G ) 

X, RRHUBCG) , RCCG) , RBLADE(G) , STAGER (6) 

X, SRHUBC7) , SC(7) , SBLADEC7) , STAGES C 7) 

X, SIGUMR(G) , BETISR(G) , BET25RCG) , AINCSRCG) , ADEUSR(G) 

X, SIGUMSC7) , BET1SSC7 ) , EET2SSC7) , AINCSS(7) , ADEUSSC7) 

X, UTIPG(G)»UTIP(G),UTIPD(G), UOU ( G) » UMEANCG ) , UHUBCG) ,UCG),FAI 
X, AREACG) , AREASC7) , UU2CG) » UTIP2CG) , UMEAN2CG) , UHUB2CG) , IPRINT 
X, I CENT » 1 1 CENT , FMR1 (G) , FMA2CG) » I RAD, FA ID 
X, NS, NS1, RT(6) > RM(6) » RH(G) » ST(6) > SM(6) , SH(6) 

X, DSMASS, AAREA ( 7 ) , AARE AS ( 7 ) , PR 1 2D ( G ) , PR1 3D ( G ) , ETARD ( G ) 

X, DR(6) > DS(S) » DEQRCG) , DEQSCG) , BLOCK CG) , BL0CKSC7) 

X, BETIMR(G) , BET2MRCG) , BET1MSC7) , BET2MSC7) , RADII (G) , RADI2CG) 

N = ISTAGE 
PAI = 3. 141592G 

luc=xui/xg/r:hogi 

ALFA=C90.0-BETA1 )/2.0*PAI/180. 0 
BETA=C90 . 0+BETA1 )/2. 0-PAI/180. 0 
B1=SIN( ALFA) 

B2=SIN(BETA) 

U1=U1*C0S(ALFA) 

U2=U 1 *COS ( BET A ) 

S=2 . 0*PAI -RRTI P ( ISTAGE ) /RBLADE ( ISTAGE ) /2 . 0 
GSI=BETA1+C90 . 0-BETA1 )/2. 0 
GSIR=GSI*PAI/180.0 
STAGR=STAGER(ISTAGE)*PAI/180 . 0 

Y2=GAPR( ISTAGE)/2. 0*(UICTANCSTAGR)-UICTAN(GSIR) )+S 

DAMY1=C90.0-GSI)*PAI/180.0 

Y1=Y2*SIN(DAMY1 ) 

DAMY2=(GSI-STAGER( ISTAGE) )*PAI/180.0 
DS1=Y 1/SIN CDAMY2) 

IFCDSl.GT.RCC ISTAGE)) DS1=RC( ISTAGE) 

DAMY3=(90.-(90. 0+BETA1 )/2. 0 )*PAI/180. 0 
DAMY4=STAGERC ISTAGE )*PA 1/180 . 0 
DAMY5=BETA1*PAI/180.0 

DAMYG=S-GAPR(ISTAGE)/2.0*(UICTAN(DAMY5)-UICTAN(DAMY3)) 

D AM Y7=COS ( D AM Y4 ) *U I CTAN ( DAMY3 ) +S IN ( DAMY4 ) 

DS2=DAMYG/DAMY7 

I F ( DS2 . GT . RC C ISTAGE ) ) DS2=RC ( I STAGE ) 

H=(AAA1*144.0)/(2.0*PAI*R) 

A1 =DS1*H -RBLADE CN)/1 44.0 
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A2=DS2*H*RELADE(N)/i44. 0 

mi = LUC * U1 * El * Ai 

UU2 = LUC --- U2 * E2 * A2 

UU = UU1 + UU2 

RETURN 

END 

+++++++++++ ++*f*+ ++++-!•++-}■ +-5-+++++++++++++++++++++++++++++++++++++++++ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c c 

C SUBROUTINE UICISS C 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE UICISSC ISTAGE ,R , XU1, XG , RHOGAS ,ALFA2,U1 , 

$UU1 » UU2, UU) 

REAL LUC 

COMMON /PERDUE/ JPERFM, RH0GC3) , RERUP, RERLOU, RESUP, RESLOU 
X, PREB, RRTI P< S ) , SRT IP C 8 ) , AAAI , AAA2 , AAA3, SAREA C G ) , SAREAS ( 7 ) 

X, P(3),TG(3)»XA,XU(3), XCH4, XU (3) , XUU(3) , XUT (3)»TU(3), TUU(3 ) 

X , OMEGS (7) , OMEGR (G) , GAPR (G) , GAPS ( G ) 

X, RRHUECG) , RCCG) , RBLADE(G) , STAGERCG) 

X, SRHUBC7) , SCC7) , SELADEC7) , STAGESC7 ) 

X, SIGUMRC6) , EET1SRCG) , BET2SRC6) , AINCSRCG) , ADEUSRCG) 

X, SIGUMSC?) , BET1SSC7) , BET2SSC7) , AINCSSC7) , ADEUSSC7) 

X, UTIPGCG)»UTIP(G),UTIPDCG)»UOUCG), UMEANCG) , UHUBCG) *UCG)»FAI 
X, AREA( G) , AREAS (7) , UU2CG) , UTIP2C6) » UMEAN2CG) » UHUB2CG) , I PR I NT 
X, I CENT , 1 1 CENT , FMR1 (G) » FMA2CG) , I RAD, FAID 
X, NS, NS1 » RTC 6) » RMC 6) » RHC6 ) » 5TC6) » SMCG) , SHC6) 

X, DSMASS, AAREAC7) , AAREASC7) » PR12DC6) , PR13DCG) , ETARD(G) 

X, DR C G ) , DS C 6 ) * DEOR C G ) , DEOS ( G ) , BLOCK C G ) , BLOCKS C 7 ) 

X, BET1MRC6) , BET2MR C 6) , BETlf'lS ( 7 ) , BET2MSC 7 ) , RADI ICG), RADI2C6) 

LUC = XU1/ XG * RHOGAS 

DS1=( 0.0G * SC C ISTAGE ) ) / 12.0 

PAI=3. 1415926 

Bl=l . 0 

B2R=( 90 . 0-ALFA2+STAGESC ISTAGE) )*PAI/180 . 0 
B2=C0S(E2R) 

ALFA2R=ALFAS*PAI/180 . 0 

DS2=2 . 0*PAI*R/SBLADE ( ISTAGE ) *CQS C ALFA2R ) /CDS ( B2R ) 

I F C DS2 . GT . SC C ISTAGE ) ) DS2=SC ( I STAGE ) 

H=( AAA2* 144.0 )/(2. 0*PAI *R ) 

A 1 =DS 1 *H*SBLADE ( I ST AGE ) / 1 44 . 0 

A2=DS2*H*SBLADE (1ST AGE ) / 1 44 . 0 

UU1=LUC*U1*B1*A1 

UU2=LUC^U1«B2*A2 

UU=UU1+UU2 

RETURN 

END 

C++-r+++++++++++++++ + + -l-+++++++++++-i-++++++ + +++++++++++T-+++++++++++++++++++ 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c c 

C SUBROUTINE UICISL C 

C c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE UICISL ( ISTAGE, R, XU1, XG, RHOG1, ALFA2, U1 , UU1 , UU2, UU) 

REAL LUC 

COMMON /PERDUE/ JPERFM, RH0GC3) , RERUP, RERLOU, RESUP, RESLOU 
X, PREB, RRTIPC8) , SRTIPC 8) , AAAI, AAA2, AAA3, SAREA(G) , SAREASC7) 

X, P(3)»TG(3),XA,XU(3), XCH4, XUC3) , XUU(3), XUT (3) , TUC3) , TUUC3) 

X, OMEGS ( 7 ) , OMEGR C G ) , GAPR (G) , GAPS ( G ) 

X, RRHUB(G) , RC(G) , RBLADECG) , STAGERCG) 

X, SRHUBC7) , SCC7) , SBLADEC7) , STAGES (7) 

X, SIGUMRCG) , BET1SRCG) , BET2SRC6) , AINCSRCG) , ADEUSRCG) 

X, SIGUMSC7) , BET1SSC7) , BET2SSC7) , AINCSSC7) , ADEUSSC7) 

X, UTIPGCG) , UTIPCG) , UTIPDCG) , UOUCG) , UMEANCG) , UHUBCG) , UCG) , FAI 
AREAC6) , AREAS C7 ) » UU2CG) , UTIP2CG) , UMEAN2CG), UHUB2CG) , I PRINT 
ICENT, I I CENT , FMR1 CG) , FMA2CG) , I RAD, FAID 
NS,NS1»RTC6)»RMC6)»RHCG)»STC6)»SMC6),SHC6) 

DSMASS, AAREAC 7 ) , AAREAS C7) » PR12DC6) , PR13DC6) * ETARD C G ) 

DR C G ) , DS C G ) , DEQR C G ) , DEOS C G ) , BLOCK C G ) , BLOCKS C 7 ) 


UICIRL 

53 

UICIRL 

54 

UICIRL 

55 

UICIRL 

5G 

UICIRL 

57 

UICIRL 

58 

UICISS 
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UICISS 
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UICISS 
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UICISS 
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UICISS 
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UICISS 
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UICISS 
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UICISS 
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UICISS 

18 

UICISS 

IS 

UICISS 

20 

UICISS 

21 

UICISS 

22 

UICISS 

23 

UICISS 

24 

UICISS 

25 

UICISS 

2G 

UICISS 

27 

UICISS 

28 

UICISS 

29 

UICISS 
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UICISS 
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UICISS 

32 

UICISS 

33 

UICISS 

34 

UICISS 
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3G 

UICISS 

37 

UICISS 
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40 
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X. BETIMR(G) > BET2MRCG) , BET1MSC7) , BET2MSC7) » RADII (G) > RADI2CG) 
PAI=3. 1415926 
LWC = XW1/ XG * RH0G1 
ALFA= ( 90 . 0-ALFA2 ) /2 . 0*PAI/180 . 0 
BETA=(90.0+ALFA2)/2.0*PAI/180.0 
B1=SIN(ALFA) 

B2=SIN(BETA) 

Ul=ftl*COS(ALFA) 

U2=W1*C0S(BETA) 

S=2 . 0*P A I *SRT I P ( I STAGE ) /SBLADE ( I STAGE ) /2 . 0 
GSI=ALFA2+(90. 0-ALFA2)/2. 0 
GSIR=GSI*PAI/180.0 
STAGR=STAGES( ISTAGE) *PA 1/180 . 0 

Y2=GAP5 ( ISTAGE )/2. 0*(WI CTAN C STAGR ) -W I CTAN C GS IR ) ) +S 
DAMY1=(90 . 0-GSI )*PAI/180. 0 
Y1=Y2*SIN(DAMY1 ) 

DAMY2=(GSI-STAGES( ISTAGE) )*PAI/180. 0 
DS1=Y1/SIN(DAMY2) 

IF(DS1.GT.SC(ISTAGE)) DS1=SC(ISTAGE) 

DAMY3= C 90 . - ( 90 . 0+ALFA2 ) /2 . 0 ) *PA I / 1 8 0 . 0 
DAM Y4=STAGES ( ISTAGE ) *PA I /180 . 0 
DAMY5=ALFA2*PAI/IB0 . 0 

D AM YG=S-G APS ( I STAGE ) /2 . 0* ( W I CT AN ( D AMY5 ) -W I CT AN ( D AM Y3 ) ) 
DAMY7=C0S ( DAMY4 ) *WICTAN C DAMY3 ) +SINC DAMY4) 

DS2=DAMY6/DAMY7 

IF(DS2 . GT. SCC I STAGE ) ) DS2=SC C ISTAGE ) 
H=(AAA2*144.0)/(2.0*PAI*R) 

A1=DS1*H*SBLADE(ISTAGE)/144.0 
A2=DS2*H*SBLADE ( I STAGE ) /I 44 . 0 
WW1=LWC*U1*B1*A1 
WW2=LWC*U2*B2*A2 

m=um+ww 2 

RETURN 

END 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c c 

C SUBROUTINE WICWAK C 

C C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE WICWAK C RHOG , U , DWAKE , DWAKEM ) 

UISCOF=l . 20E-3 
SIGUMA = 4.6534E-3 
GC = 32.174 
WE=21 . 0 


DWAKE1 = C WE * SIGUMA * GC ) / RHOG / U ** 2 
SN=UISC0F**2/(RH0G*SIGUMA*DWAKE1*GC) 

WELIMT=12. 0*( 1 . 0+SN**0 . 36 ) 

D1=WELIMT*SIGUMA*GC/CRH0G*U**2) 

WE=22. 0 

DWAKE2= ( WE*SI GUMA*GC ) /RH0G/U**2 
SN=UISC0F**2/ ( RH0G*SIGUMA*DWAKE2*GC ) 

WELIMT=12 . 0*( 1 . 0+SN**0 . 3G) 

D2= WEL I MT*S I GUM A*GC/ ( RH0G*U**2 ) 

XXXX-WICNEWCDWAKEl , D1 » DWAKE2, D2) 

SN=U I SCOF**2/ ( RHOG*S I GUMA*XXXX*GC ) 

WELIMT=12.0*(1.0+SN**0.36) 

DWAKE=WELIMT*SIGUMA*GC/CRH0G*U**2) 

DWAKEM = DWAKE / 3.2802 * 1.0EG 

RETURN 

END 

C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c c 

C SUBROUTINE WICHET C 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE WICHETCTG1, TG3, TW1» TW3* DAUEN2, DAUEN, 

$DELZI» UZ* WMASSlt UMASS1, AMASS, CHMASS, CPG, CPW, DELTGH, DELTWH» RE) 
DIMENSION DELHETC51) 
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WICISL 

29 

WICISL 

30 

WICISL 

31 

WICISL 

32 

WICISL 

33 

WICISL 
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WICISL 

40 

WICISL 

41 

WICISL 

42 

WICISL 

43 

WICISL 

44 

WICISL 

45 

WICISL 

46 

WICISL 

47 

WICISL 

48 

WICISL 

49 

WICISL 

50 

WICISL 

51 
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19 

WICWAK 

20 

WICWAK 

21 

WICWAK 

22 

WICWAK 

23 

WICWAK 

24 

WICWAK 

25 

WICWAK 

26 

WICWAK 

27 

WICHET 

1 

WICHET 

2 

WICHET 

3 

WICHET 

4 

WICHET 

5 

WICHET 

6 

WICHET 

7 

WICHET 

8 

WICHET 

9 


206 



nnn 


REAL ND , KA , NU » MMASS.NU 

DELTGH=0. 0 

DELTWH=0.0 

IF(WMASSl.LT.l.OE-G) GO TO 11 
PAI = 3.1415927 

DAUEAU= C DAUEN2+DAUEN ) /2 . 0* 1 . 0E-G*3. 2802 
IFCDAUEAU.LT. 1.0E-G) GO TO 11 
RHOW = G2.54 

ND = WMASS1 / C RHOW * 4.0 / 3.0 * PAI * C DAUEAU / 2.0 ) ** 3) 

KA = 0.015 / 3G00.0 

PR=0.7 

NU=2 . 0+0 . 6*SQRT ( RE ) *PR**0 . 33 
HCONUE = KA / DAUEAU * NU 
J = 1 

10 DELT=( (TG1-TW1 )+(TG3-TW3) V2. 0 

DELHH = HCONUE * 4.0 * PAI * ( DAUEAU /20 ) **2*DELT * 
$ND*DELZI/UZ 

GM ASS 1 =UM ASS 1 + AM ASS+CHM ASS 
DELTGH=DELHH/(GMASS1*CPG) 

DELTWH=DELHH/ ( WM ASS 1 *CPW ) 

TG3=TG3-DELTGH 
TW3=TW3+DELTWH 
DELHET ( J ) =DELHH 
J=J+1 

IFCJ.EQ.2) GO TO 10 

EROR=ABS ( DELHET ( J- 1 ) -DELHET C J-2 ) ) 

EPS=0. 0001 

IF( J.GT.50) GO TO 11 
IF (EROR.GT.EPS) GO TO 10 

11 RETURN 
END 

C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE WICMAS C 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE UICMASC HW1 , TW1 , TW2 , PP1 , PP2 , TGI . TG2 . DZ , 

1 PWB1 . PWB2 » PW1 » PW2 t UZ » DDAUE1 , DDAUE2 , HUI2 , UMASS1 , 

1 UMASS2 , WMASS1 , WMASS2 , DMDTAU , AMASS .RE) 

PWB1 = WICPWBCTWl )*144. 0 

PWB2 = WICPWBC TU2 )*144.0 

PW1 = ( HW1 * PP1 ) / ( HUH + 0.6219 ) 

DMDT1 = WICMTRC TGI , TW1 , PP1 , DDAUE1 , UZ , DZ , WMASS1 . 

1PW1 »RE) 

PW2AS1 = PW1 

DMDT2 = UICMTRC TG 2 , TUI 2 , PP2 , DDAUE2 , UZ , DZ , WMASS1 , 
1PW2AS1 » RE) 

DMDTAU = ( DMDT1 + DMDT2 ) / 2.0 
UMASS2 = UMASS1 + DMDTAU 
WMASS2 = WMASS1 - DMDTAU 
HW2=UMASS2/AMASS 

PU2CL1 = ( HW2 * PP2 ) / ( HW2 + 0.G219 ) 

PW2AS2 = PW1 * 1.05 

DMDT2 = WICMTRC TG2 , TW2 , PP2 , DDAUE2 , UZ . DZ . WMASS2 , 
1PW2AS2 > RE) 

DMDTAU = ( DMDT1 + DMDT2 ) / 2.0 
UMASS2 = UMASS1 + DMDTAU 
WMASS2 = WMASS1 - DMDTAU 
HW2 = UMASS2 / AMASS 

PW2CL2 = C HW2 * PP2 ) ✓ C HW2 + 0.G219 ) 

2 PW2ASN = WICNEW ( PW2AS1 , PW2CL1 . PW2A52 . PW2CL2 ) 

PW2AS1 = PW2AS2 
PW2CL1 = PW2CL2 
PW2AS2 = PW2ASN 

DMDT2 = WICMTRC TG2 » TW2 » PP2 , DDAUE2 , UZ . DZ , WMASS2 » PW 
12AS2 » RE) 

DMDTAU = C DMDT1 + DMDT2 ) / 2.0 
UMASS2 = UMASS1 + DMDTAU 
WMASS2 = WMASS1 - DMDTAU 
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HW2 = UMASS2 / AMASS 




W I CM AS 

40 

PW2CL2 = ( HW2 * PP2 ) / C HW2 + 0.G219 

) 



WICMAS 

41 

ERROR = ABS ( PW2AS2 - PW2CL2 ) 




WICMAS 

42 

EPS =0.01 




WICMAS 

43 

IF ( ERROR . GT . EPS ) GO TO 2 




WICMAS 

44 

PW2 = PU2AS2 




WICMAS 

45 

RETURN 




WICMAS 

46 

END 




WICMAS 

47 

c +■++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

WICMTR 

1 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

WICMTR 

2 

c 



C 

WICMTR 

3 

C FUNCTION WICMTR 



C 

WICMTR 

4 

c 



C 

WICMTR 

5 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

WICMTR 

6 

FUNCTION WICMTR (TTG, TTW, PPP, DAUE,UZ» DZ* 1 

MMASS, PW» RE) 


WICMTR 

7 

REAL KG , ND , MMASS 




WICMTR 

8 

IFCDAUE.LT. 1.0E-6) WICMTR=0.0 




WICMTR 

9 

IFCDAUE.LT. 1.0E-B) GO TO 10 




WICMTR 

10 

DD=DAUE*1 . 0E-6*3. 2802 




WICMTR 

11 

T = C TTG + TTU ) / 2.0 




WICMTR 

12 

PAI = 3.1415926 




WICMTR 

13 

RHOW = 62.2567 




WICMTR 

14 

RR = DD / 2.0 




WICMTR 

15 

TT = T * 5.0 / 9.0 




WICMTR 

16 

PP = ppp * 47.880258 




WICMTR 

17 

DU=4 . 24028E-3* C TT**1 . 5 ) /PP 




WICMTR 

18 

SCT=0.60 




WICMTR 

19 

SH=2. 0+0. 60*SQRT(RE)*SCT**0 . 33 




WICMTR 

20 

KG = DU / DD * SH 




WICMTR 

21 

HU= 1 1 15 . 3279-0 . 6840909* C TTW-4G0 . 0 ) 




WICMTR 

22 

PWBB=PW+29 .0/18.0*0. 45/HU*PPP* C TTG-TTW ) 




WICMTR 

23 

R = 85.78 




WICMTR 

24 

ND = MMASS / C RHOW * 4.0 / 3.0 * PAI * 

RR 

** 3 ) 


WICMTR 

25 

WICMTR = KG * 4.0 * PAI * RR ** 2 * C PWBB 

/ TTW - PW / TTG ) 

/ R 

WICMTR 

26 

1 * ND * DZ / UZ 




WICMTR 

27 

10 RETURN 




WICMTR 

28 

END 




WICMTR 

29 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 


WICPWB 

1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

WICPWB 

2 

c 



C 

WICPWB 

3 

C FUNCTION WICPWB 



C 

WICPWB 

4 

c 



C 

WICPWB 

5 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

WICPWB 

6 

FUNCTION WICPWBCTWB) 




WICPWB 

7 

TSTAG=TWB 




WICPWB 

8 

TSTAGC= C TSTAG-492 . 0 ) /1 . 8 




WICPWB 

9 

IFCTSTAGC.LT. 100.0) GO TO 40 




WICPWB 

10 

IFCTSTAGC.GE. 100.0. AND. TSTAGC.LT. 200.0) 

GO 

TO 41 


WICPWB 

11 

A=5. 45142 




WICPWB 

12 

B=2010.8 




WICPWB 

13 

GO TO 42 




WICPWB 

14 

40 A=5. 9778 




WICPWB 

15 

B=2224.4 




WICPWB 

16 

GO TO 42 




WICPWB 

17 

41 A=5. 6485 




WICPWB 

18 

B=2101 . 1 




WICPWB 

19 

42 AA= A-B/ C TSTAGC+273 . 0 ) 




WICPWB 

20 

PS=10 . 0**AA 




WICPWB 

21 

PS=PS/4 . 88247E-4 




WICPWB 

22 

WICPWB=PS/144.0 




WICPWB 

23 

RETURN 




WICPWB 

24 

END 




WICPWB 

25 

c +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 


WICNEW 

1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

WICNEW 

2 

c 



C 

WICNEW 

3 

C FUNCTION WICNEW 



C 

WICNEW 

4 

c 



C 

WICNEW 

5 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

WICNEW 

6 

FUNCTION WICNEW CXI * Yl» X2» Y2) 




WICNEW 

7 

T=ABSC CX2-X1 )/Xl ) 




WICNEW 

8 
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IFCT.LT. l.OE-G) UICNEU=CYl+Y2)/2.0 
IFCT.LT. 1. OE-S) GO TO 100 
A=(Y2-Y1)/(X2-X1) 

B=Y1-A*X1 

UICNEU=B/(1.0-A) 

100 RETURN 
END 


C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c c 

C FUNCTION UICBPT C 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

FUNCTION UICBPT (TSTAG, PSTAG) 

TSTAGC= C TSTAG-492 . 0 ) / 1 . 8 
IFCTSTAGC.LT. 100.0) GO TO 20 

IFCTSTAGC.GE. 100.0. AND. TSTAGC.LT. 200.0) GO TO 21 
A=5. 45142 
B=2010.8 
GO TO 22 

20 A=5 . 9778 
B=2224.4 
GO TO 22 

21 A=5 . G485 
B=2101 . 1 

22 PS=PSTAG*4. 88247E-4 
TBOILK=B/( A-ALOGIOCPS) ) 

WICBPT=TBOILK*l . 8 
RETURN 

END 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c c 

C FUNCTION WICSH C 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

FUNCTION UICSHC TSTAG, PSTAG) 

TSTAGC= ( TSTAG-492 . 0 ) / 1 . 8 
IFCTSTAGC.LT. 100.0) GO TO 40 

IFCTSTAGC.GE. 100.0. AND. TSTAGC.LT. 200.0) GO TO 41 
A=5. 45142 
B=20 1 0 . 8 
GO TO 42 

40 A=5 . 9778 
B=2224. 4 
GO TO 42 

41 A=5 . G4S5 
B=2101 . 1 

42 AA=A-B/CTSTAGC+273.0) 

PS=10. 0**AA 

PS=PS/4 . S8247E-4 

WICSH=0.S218847*PS/(PSTAG-PS) 

RETURN 

END 

C ++++++++++++++++++++++++++++++++4-h++++++H-++++++++++++++++++++++++++++ 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
c c 

C FUNCTION WICTAN C 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

FUNCTION UICTANCX) 

A=COSCX) 

B=SINCX) 

UICTAN=B/A 

RETURN 

END 

C ++++++++++++++++ + +++■{■+++ +++++++++++++++++++++++++++++++++++++++++++++ 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c c 

C SUBROUTINE WICCEN C 


WICNEU 

9 

WICNEU 

10 

WICNEU 

11 

WICNEU 

12 

WICNEU 

13 

WICNEU 

14 

WICNEU 

15 

UICBPT 

1 

UICBPT 

2 

UICBPT 

3 

UICBPT 

4 

UICBPT 

5 

UICBPT 

6 

UICBPT 

7 

UICBPT 

8 

UICBPT 

9 

UICBPT 

10 

UICBPT 

11 

UICBPT 

12 

UICBPT 

13 

UICBPT 

14 

UICBPT 

15 

UICBPT 

IS 

UICBPT 

17 

UICBPT 
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UICBPT 

19 

UICBPT 

20 

UICBPT 

21 

UICBPT 

22 

UICBPT 

23 

WICSH 

1 
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WICSH 

4 

UICSH 
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WICSH 
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WICSH 

22 

UICSH 

23 

WICSH 

24 

WICTAN 

1 

WICTAN 

2 

WICTAN 

3 

WICTAN 

4 

WICTAN 

5 

WICTAN 

S 

WICTAN 

7 

WICTAN 

8 
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9 

WICTAN 

10 

WICTAN 

11 

WICTAN 
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WICCEN 

1 

WICCEN 

2 

WICCEN 

3 
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nnnn nnnn 


C C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE WICCENCRZERO, UZERO, DD, UZ, DELZZ, ALFAAU, FN» IRS, RHOGAS, 
1RHUB, R2, U2» ITIP, UZTIME, XG, XA, XUU, XCH4, RTIPIN) 

C IRS=l: STATOR 
C IRS=2: ROTOR 
REAL N 

PAI=3. I4I532S 

ALFAAR=ALFAAU*PAI/180 . 0 

IFCDD.LT.1.0E-6) GO TO 12 

D=DD*1.0E-G*3.2802 

RHOA=RHOGAS 

RH0D=62.37 

XXAA-XA/XG 

XXUU=XUU/XG 

XXCC=XCH4/XG 

UISCO=(XXAA*0. 05715+XXUU*0. 03293+XXCOO . 035)73600. 0 

ENDTIM=DELZZ/UZ 

JJ=10 

DELTIM=ENDTI M/FLOAT ( J J ) 

R1=RZER0 
U1=UZER0 
TIME=0 . 0 
JJJ=1 

11 RE=D*U1/UISC0 
B1 = 0 . 44 

N=0 . 0 

IFCRE.LT. 1.9) Bl=24. 0 
IFCRE.LT. 1.9) N=1 . 0 

IFCRE.GT. 1.9. AND.RE.LT. 500.0) Bl=18.5 
IFCRE.GT. 1.9. AND.RE.LT. 500.0) N=0.6 

B= C C U I SC0---N ) *B 1 *P A I * C RHO A** C 1 . 0 -N ) ) *G . 0 ) 7 C 8 . 0*RHOD*P A I ) 
C=B/(D**(1.0+N) ) 

UWl=Rl/12.0*2.0*PAI*FN/60.0 

IFCR1.GT. RTIPIN) UW1=RTIPIN/12. 0*2. 0*PAI*FN/G0. 0 
UU2=UZ*WICTAN ( ALFAAR) 

IFCALFAAU.LT. 1.0) UW=UW1 
IF C ALFAAU . GT. 1 . 0 ) UW=UW172.0 
A=UW*UW*( 1 . O-RHOA/RHOD) 

DELU=(A/R1«12. 0~C*U1**(2. 0-N) )*DELTIM 

U2=U1+DELU 

UAUE=Ul+DELU/2.0 

DELR=UAUE*DELTIM*12. 0 

R2=R1+BELR 

TIME=TIME+DELTIM 

IPRINT=1 

IFC IPRINT.EQ.2) 

$WRITE(6, 101 ) Rl, UW, A, Ul, DELU, U2, UAUE, DELR, R2, TINE 
101 FORMAT C 1H ,7CF11.4,2X)»E10.4,2X,F10.4,2X,E10.4) 

U1=U2 

R1=R2 

JJJ=JJJ+1 

UZTIME=UZ*TIME*12. 0 
IFC TIME. GT.ENDTIM) GO TO 12 
IF C JJJ.EQ. JJ) GO TO 12 
GO TO 11 

12 RETURN 
END 

C ++++++++++++++++++++++-H-++++++++++++++++++++++++++++++++++++++++++-H-+ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE WICDMS C 

c 


SUBROUTINE WICDMSC IPRINT, IRAD, AMASWl, AMASWT , AMASW, Rl* R2, ST AREA, 
SRSTAUE, RTIP, DMIN, DMOUT , AMASW2, DELMAS) 

AMASWl: MASS FLOW RATE OF WATER IN A STREAM TUBE IN INTEREST 
AMASWT: TOTAL MASS FLOU RATE OF HATER WHICH ENTER THE COMPRESSOR 
AMASW: TOTAL MASS FLOW RATE OF WATER WHICH IS SUBJECT TO 
CENTRIFUGAL FORCE 
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nnnnnnn n n n n 


C IRAD=l: TIP 

C IRAD=2: MEAN 

C IRAD=3:HUB 

PAI=3. 141592G 

RST1=R5TAUE 

A1=STAREA 

A2=PAI*(R2**2-R1**2V144.0 
A2=A2*0 . 5 

DMCENT=A2/A1*AMASW 
120 IF( DMCENT . LT. 0 . 0 ) DMCENT=0.0 

IF ( DMCENT . GT . AMASWT ) DMCENT =AMASWT 
IF(Rl.GT.RSTl) GO TO 110 
C R1.LT.RST1 

DMIN=DMCENT 
DMOUT=DMCENT 
GO TO 100 
110 CONTINUE 
C R1.GT.RST1 

DMIN=0. 0 
DMOUT=DMCENT 

100 IF(IRAD.EQ.l) DM0UT=0.0 
IF(IRAD.EQ.3) DMIN=0.0 
AMASW2=AMASW1+DMIN~DM0UT 
IF( AMASW2.LT. 0.0) AMASW2=0. 0 
IFC AMASW2 . GT . AMASWT ) AMASW2=AMASWT 
DELMAS=AMASW2-AMASW 1 

IFCIPRINT.EQ.2) WRITE(6,200) AMASW2, AMASWl, DMIN, DMOUT, DMCENT, 
$AMASWT, AMASW» DELMAS 
200 FORMAT (1H0,8(F1Q.5»3X)) 

RETURN 

END 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE WICDML C 

C 


SUBROUTINE WICDMLC IPRINT, IRAD, AMASWl , AMASWT, AMASW, R1 , R2, STAREA, 
$RSTAUE, RTIP, DMIN, DMOUT » AMASW2, DELMAS) 

AMASWl: MASS FLOW RATE OF WATER IN A STREAM TUBE IN INTEREST 
AMASWT: TOTAL MASS FLOW RATE OF UATER WHICH ENTER THE COMPRESSOR 
AMASW: TOTAL MASS FLOW RATE OF WATER WHICH IS SUBJECT TO 
CENTRIFUGAL FORCE 
IRAD=1 : TIP 
IRAD=2: MEAN 


IRAD=3: HUB 
PAI=3. 141592G 
RST1=RSTAUE 
A1=STAREA 


A2=P A I * ( R2**2-R 1 **2 ) ✓ 1 44 . 0 
A2=A2*0.5 


DMCENT=A2/A1* AMASW 
120 IFCDMCENT.LT. 0.0) DMCENT=0 . 0 

I F C DMCENT . GT . AMASWT ) DMCENT= AMASWT 
IFCRl .GT.RST1 ) GO TO 110 
DMIN=DMCENT 
DMOUT=DMCENT 
GO TO 100 
110 CONTINUE 
DMIN=0 . 0 
DMOUT=DMCENT 

100 IFC IRAD.EQ. 1 ) DMOUT=0.0 
IFC IRAD. EQ. 3) DMIN=0.0 
AMASW2=AMASW1+DMIN-DM0UT 
IFCAMASW2.LT. 0.0) AMASW2=0. 0 
IFC AMASW2 . GT . AMASWT ) AMASW2=AMASWT 
DELMAS=AMASW2-AMASW 1 

IFCIPRINT .EQ.2) WRITECG,200) AMASW2, AMASWl » DMIN, DMOUT , DMCENT , 
$AMASWT, AMASW, DELMAS 
200 FORMAT C 1H0, 8CF10.5, 3X) ) 
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RETURN 

END 

C+++++++++++++++++++++++++++++++++++++++++++++++++++++++-J-++++++++++++++++ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c c 

C SUBROUTINE WICDRG C 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE WICDRG (D» DELU1 » RHGAS1* RHGAS2* CD2t DELU2* DRAG1» RE) 

REAL N» N1 

GC=32. 174 

IPRINT=1 

UISC0G=12. OE-G 

PAI=3. 1415927 

IF(D.GT.O.O) GO TO 300 

CD2=0. 0 

DELU2=0 . 0 

DRAG1=0 . 0 

RE=0. 0 

GO TO 301 

300 RE1=(RHGAS1*D*DELU1)/UISC0G 
RE=RE1 

B1 1=0 . 44 
N1=0 . 0 

IFCRE.LT. 1.9) Bll=24. 0 
IFCRE.LT. 1.9) Nl=l . 0 

IFCRE.GT. 1.9. AND.RE.LT. 500.0) Bll=18.5 
IFCRE.GT. 1.9. AND.RE.LT. 500.0) N1=0.G 
CD1=B11/CRE1**N1) 

DRAG1=0.5*RHGAS1*(DELU1**2)*(PAI*D**2)*CD1 

$/GC 

DAMY=DRAG1 *GC/ C CD 1*0 . 5*RHGAS2* C PAI *D**2 ) ) 

IFCIPRINT.EQ.2) WRITE(G,20Q) D,DELU1,RHGAS1,RHGAS2,RE1,B11,N1, 

$CD1 » DRAG1 * DAMY 
200 FORMAT C1HO»10CF10.5»2X)) 

DELU2=SQRT C DAMY ) 

RE2=RHGAS2*D*DELU2/UISCDG 

B1=0 . 44 

N=0.0 

IFCRE2.LT. 1.9) Bl=24. 0 
IFCRE2.LT. 1.9) N=l. 0 

IFCRE2.GT. 1.9. AND. RE2.LT. 500.0) Bl=18.5 
IFCRE2.GT. 1.9. AND. RE2.LT. 500.0) N=0.G 
CD2=B1/CRE2**N) 

IFCIPRINT.EQ.2) WRITECG,101) RE1,B11,N1,CD1,DELU1,RE2,B1»N,CD2, 
SDELU2 

101 FORMAT C1H0>2X> 10CF10.5>2X)) 

RE=CREl+RE2)/2.0 
IPRINT =2 

301 RETURN 
END 

C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c c 

C SUBROUTINE WICSIZ C 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE WICSIZC WMASSL, WMASSS, AMING1 , AMING2, AMING3, DL, DS. Dl* D2» 
$D3» DLIMIT, AMSLL, AMLGE. DSLL» DLGE) 
TMASS1=WMASSL+WMASSS+AMING1+AMING2+AMING3 
AML=0 . 0 


AMS=0. 0 

IFCDL.GT. DLIMIT) 

IFCDL.LT. DLIMIT) 

IFCDS.GT. DLIMIT) 

IFCDS.LT. DLIMIT) 

IFCD1.GT. DLIMIT) 

IFCD1.LT. DLIMIT) AMS=AMS+AMING1 
IFCD2.GT. DLIMIT) AML=AML+AMING2 
IFCD2.LT. DLIMIT) AMS=AMS+AMING2 


AML=AML+WMASSL 

AMS=AMS+WMASSL 

AML=AML+WMASSS 

AMS=AMS+WMASSS 

AML=AML+AMING1 
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IF (D3.GT. DLIMIT) AML=AML+AMING3 
IFCD3.LT. DLIMIT) AMS=AMS+AMING3 
TMASS2=AML+AMS 
ERR0R=ABS(TMASS1-TMASS2) 
IFCERROR.LT. l.OE-G) GO TO 100 
IFCTMASS2.LT. l.OE-B) GO TO 100 
TT =TMASS 1/TMASS2 
IFCTT.LT. 1.0) AML=AML/TT 
IFCTT.LT. 1.0) AMS=AMS/TT 
IFCTT.GT.1.0) AML=AML*TT 
IFCTT.GT.1.0) AMS=AMS*TT 
100 At1LGE=AML 
AMSLL=AMS 
ADL=0. 0 


ADS=0 . 0 

IFCDL.GT. 

IFCDL.LT, 

IFCDS.GT. 

IFCDS.LT. 

IFCD1.GT. 

IFCD1.LT. 

IFCD2.GT, 

IFCD2.LT. 

IFCD3.GT. 

IFCD3.LT. 

DLGE=ADL 

DSLL=ADS 

IFCDL.GT, 

IFCDS.GT, 

RETURN 

END 


DLIMIT 

DLIMIT 

DLIMIT 

DLIMIT 

DLIMIT 

DLIMIT 

DLIMIT 

DLIMIT 

DLIMIT 

DLIMIT 


, AND. AML. 
.AND. AMS. 
.AND. AML. 
.AND. AMS. 
.AND. AML. 
.AND. AMS. 
.AND. AML. 
.AND. AMS. 
.AND. AML. 
.AND. AMS. 


GT.O. 

GT.O. 

GT.O. 

GT.O. 

GT.O. 

GT.O. 

GT.O. 

GT.O, 

GT.O. 

GT.O. 


0.0. AND . DLGE . GT . DL ) 
0. O.AND.DSLL.GT.DS) 


0) ADL= ADL+DL* C WMASSL/AML ) 
0) ADS=ADS+DL* C WMASSL/AMS ) 
0) ADL=ADL+DS*CWMASSS/AML) 
0) ADS=ADS+DS*(WMASSS/AMS) 
0) ADL= ADL+D 1 * C AM I NG 1 /AML ) 
0) ADS=ADS+D1*( AMING1/AMS) 
0) ADL=ADL+D2* C AMI NG2/AML ) 
0) ADS=ADS+D2* C AMING2/AMS ) 
0) ABL=ADL+D3*( AMING3/AML) 
0) ADS=ADS+D3*( AMING3/AMS) 


DLGE=DL 

DSLL=DS 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c C 

C SUBROUTINE WICPRP C 

C C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
SUBROUTINE WICPRPCXAIR, XH20, XCH4, T » RMIX, CPMIX, GAMMA, G1 , G2, G3) 

C T IN R 

C CPMIX IN BTU/LBM-R 
C RMIX IN LBF-FT/LBM-R 

RAIR=1 545. 3/28. 964 
RH20= 1545. 3/18. 01G 
RCH4=1545. 3/16. 043 
XXAIR=XAIR/(XAIR+XH20+XCH4) 

XXH20=XH20/ CXAIR+XH20+XCH4) 

XXCH4=XCH4/ C XAIR+XH20+XCH4 ) 

RMIX=XXAIR*RAIR+XXH20*RH20+XXCH4*RCH4 

CPMIX=XXAIR*NICCPACT)+XXH20*WICCPHCT)+XXCH4*mCCPCCT) 

GAMMA=1 .0/Cl. O-RMIX/CPMIX/778. 0 ) 

G1=GAMMA/C GAMMA-1 . 0 ) 

G2=CGAMMA-1.0)/2.0 
G3=-l . 0/C GAMMA- 1 . 0 ) 

RETURN 

END 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c C 

C FUNCTION WICCPA C 

C C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
FUNCTION WICCPA CT) 

C T IN R 

C CPAIR IN BTU/LBM-R 
TK=5.0/9.0*T 
A=3. 65359 
B=- 1 . 3373GE-3 


C=3 . 29421E-G 
D=-l . 91 142E-9 
E=0 . 2754G2E-12 
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R=8314.3/28. 964 

CP= ( A+B*TK+C*TK**2+D*TK**3+E*TK**4 ) *R 
WICCPA=CP*2.3885E“4 
RETURN 
END 

-+++H 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
C c 

C FUNCTION WICCPH C 

C c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
FUNCTION WICCPH(T) 

C T IN R 

C CPH20 IN BTU/LBM-R 
TK=5.0/9.0*T 
A=4. 07013 
B=-l. 10845E-3 
C=4. 15212E-6 
D=-2 . 96374E-9 
E=0. 807021 E- 12 
R=8314. 3/18. 016 

CP= ( A+B*TK+C*TK**2+D*TK**3+E*TK**4 ) *R 

WICCPH=CP*2 . 3885E-4 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c c 

C FUNCTION WICCPC C 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

FUNCTION WICCPC(T) 

C T IN R 

C CPCH4 IN BTU/LBM-R 
TK=5. 0/9. 0*T 
A=3. 82619 
B=-3.9794GE-3 
C=24.5583E-G 
D=-22. 7329E-9 
E=6.96270E~12 
R=8314. 3/16. 043 

CP= ( A+B*TK+C*TK**2+D*TK**3+E*TK**4 ) *R 

WICCPC=CP*2 . 3885E-4 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c c 

C SUBROUTINE WICGSL C 

C C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE WICGSLCOMEGAS, SIGUMA, BET1S, BET2S, AINCIS, ADEUIS, AMACH1, 
1BET1, DEQS, DEON, SITACS, SITACN, BET2N, OMEGAN, X, IDESIN. AK1 , AK2, AK3 
2» U21» UZ2, UR1 , Rl» R2) 

CALL WICEDDC AK3, UZ1 » UZ2, UR1 , Rl , R2, BET1S, BET2S, SIGUMA, OMEGAS, 

$DEQS, SITACS) 

A I NC I =BET 1 -BET 1 S+ A I NC I S 

BET2A=BET2S 

X1=BET2A 

DELDEQ=WICED( AK3, UZ1 , UZ2, UR1, Rl, R2, BET1 , XI , SIGUMA, AINCIS, AINCI ) 
$-DEQS 

ADEUI =ADEUI S+ (6.40-9. 45*AMACH 1+9 . 45*X ) *DELDEQ*AK 1 

IF( AMACH1 . LT. X) ADEUI=ADEUIS+6. 40*DELDEQ*AK1 

BET2C=BET2S-ADEUIS+ADEUI 

Y1=BET2C 

N=1 

12 IF(N.GT.l) GO TO 10 
EET2A=BET2S*1 . 1 
10 X2=BET2A 

DEQN=WICED( AK3, UZ1, UZ2,UR1, Rl, R2, BET1, X2, SIGUMA, AINCIS, AINCI ) 
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DELDEQ=DEQN-DEQS 

ADEUI=ADEUIS+ C B . 40-9 . 45*AMACHl+9 . 45*X) *DELDEQ*AK1 
I F C AMACH 1 . LT . X ) ADEUI= ADEU I S+G . 40*DELDEQ*AK 1 
BET2C=BET2S-ADEUIS+ADEUI 
Y2=BET2C 

DELEET=ABS ( C X2-Y2 ) /X2 ) 

EPS=1 . OE-G 

IF( DELBET.LE.EPS) GO TO 11 
BET2A=WICNEW(X1, Yl» X2» Y2) 

X1=X2 

Y1=Y2 

N=N+1 

IFCN.GT.50) GO TO 13 
GO TO 12 
11 BET2N=X2 
GO TO 14 

13 WRITE(G» 201 ) 

201 FORMAT (lHOt^DO NOT CONUERGEjO 
GO TO 15 

14 SITACN=mCMTK ( SITACS, AMACH1 , DELDEQ, AK2 ) 

OMEGAN=WICLOS(BETl, BET2N, SIGUMA, SITACN) 

SSS=SITACN-SITACS 

15 RETURN 
END 

C++++++++ +++++++++++++++++++++++++++++++++++++++++++++++++++++++ +++H I-++++ 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c c 

C SUBROUTINE WICSDL C 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE WICSDLCCHORD, SIGUMA, BETA1, BETA2, UG, RHOG, 

$AMASSW» AREA, UZ» IPRINT, OMEGAP ) 

PAI=3. 1415S26 
RHOGO=RHOG 

RHOPO=AMASSW/AREA/UZ 
RR=RHOPO/RHOGO 
UISCOG=0. 128E-4 
C=CHORD/12.0 • 

RE=UG*C*RHOGO/UISCOG 

DELC=0 . 37/ C RE**0 . 2 ) /(l . 0+1 . 442*RR ) **0 . 8 
DELP=0. 1402*DELC 
BETA1R=BETA1*PA 1/180 . 0 
BETA2R=BETA2*PAI/18Q . 0 

0MEGAP=DELP*2 . 0*S I GUMA/COS C BETA2R) * C COS ( BETA1R ) /COS ( BETA2R ) ) **2 

RETURN 

END 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c c 

C SUBROUTINE WICSTL C 

C C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE WICSTL( ISTAGE, IROTOR, DAU, W1 , W2, DELU, U2, U3, WMASS, UZ, N 
$, BETA1 , BETA2, ALFA2, ALFA3, MMASS, DELUU2* DELUL2, 

$OMEGRU, OMEGRL, OMEGSU, OMEGSL, DRAGRU, DRAGRL, DRAGSU, DRAGSL, REAUE) 

C IROTOR=l ROTOR 
C IROTOR=2 STATOR 
REAL M» MMASS 

COMMON /PERDUE/ JPERFM, RHOGC3) , RERUP, RERLOW, RESUP, RESLOW 


PREB , RRT I P ( 8 ) , SRT I P ( 8 ) , AAA 1, AAA2, A AA3 , S AREA (6) » S AREAS ( 7 ) 
P(3),TG(3)»XA*XU(3)» XCH4, XW(3) , XWW(3) » XWT (3) , TWO) , TWWC3) 
OMEGS C7) » OMEGR(G) > GAPR (G) , GAPS ( G ) 

RRHUB(B) , RC(G) , RBLADE(G) , STAGER (6) 

SRHUBC7) , SC(7) , SBLADEC7) , STAGESC7) 

SIGUMRC6) , BET1SRCG) , BET2SRCG) , AINCSR(G) , ADEUSR(G) 
SIGUMSC7) , BET1SSC7) , BET2SSC7) , AINCSSC7) , ADEUSSC7) 
UTIPG(G) » UTIPCG) , UTIPD(G) » UOU(G) , UMEANCG) »UHUB(6) » U(G) » FAI 
AREA (G) , AREAS (7) , UU2CG) » UTIP2CG) » UMEAN2 (6), UHUB2 ( G ), IPRINT 
ICENT » IICENT , FMR1 (6) » FMA2CG) » IRAD, FAID 
NS, NS1 , RTC6) , RM(G) » RH(G) » ST(6) » SM(6) » SH(G) 
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X, DSMASS, AAREA ( 7 ) , A AREAS (7) » PR12D(6) , PR13D(G) , ETARD ( G ) 

WICSTL 

25 


X* DR(6) , DS(6) » DEQR(G) » DEQSCG) » BLOCK (6) » BL0CK5(7) 

WICSTL 

26 


X, BET1 MR ( 6 ) , BET2MR ( G ) » BET IMS ( 7 ) » BET2MS ( 7 ) , RADI 1(G), RADI 2 ( 6 ) 

WICSTL 

27 


PAI=3. 1415327 

WICSTL 

28 


GC=32. 174 

WICSTL 

29 


RH0W=G2.3 

WICSTL 

30 


IFCIR0T0R.EQ.2) GO TO 100 

WICSTL 

31 

C DROPLET DRAG IN ROTOR 

WICSTL 

32 


DD=DAU*1 . 0E-6*3 . 28 

WICSTL 

33 


UG 1=441 

WICSTL 

34 


UP1=UG1-DELU 

WICSTL 

35 


A1=44MASS*RC( ISTAGEV12. 0/U2 

WICSTL 

3G 


A2=RHQW*4 . 0/3 . 0*PAI* ( DD/2 . 0 ) **3 

WICSTL 

37 


TN=0.0 

WICSTL 

38 


I F ( WMAS5 . GT . 0 . 0 ) GO TO 2000 

WICSTL 

39 


GO TO 2001 

WICSTL 

40 

2000 

TN=A1/A2 

WICSTL 

41 

2001 

UAUE=(Wl+W2)/2. 0 

WICSTL 

42 


GMU1=( 90 . O-BETAl )/2 . 0*PAI/180 . 0 

WICSTL 

43 


DELUU1=UG1-UP1*C0S(GMU1 ) 

WICSTL 

44 


IF(N.GT .2) DELUU1=DELUU2 

WICSTL 

45 


TNU=TN*( 180 . 0-BETA 1-BETA2 ) /360. 0 

WICSTL 

4G 


XWW(2)=XWW(1) 

WICSTL 

47 


XWT (2)=XWT (1 ) 

WICSTL 

48 


CALL WICPRP (XA, XU (2 ) , XCH4, TGC2) » RMIX» CPMIX, GAMMA, G1 , G2, G3) 

WICSTL 

49 


IFCIPRINT.EQ.2) WRITECG, 4000 ) 

WICSTL 

50 

4000 

FORMAT ( 1H0, ^DROPLET DRAG IN ROTOR (UPPER PART)/) 

WICSTL 

51 


CALL UICDRGCDD, DELUU1 , RHOGC 1 ) , RH0GC2) » CD2, DELU2, DRAG1 , RE) 

WICSTL 

52 


DELUU2=DELU2 

WICSTL 

53 


CDRU=CD2 

WICSTL 

54 


RERUP=RE 

WICSTL 

55 


DRAGRU=DR AG 1 *TNU 

WICSTL 

5G 


AREA1=PAI*(RRTIP(ISTAGE)**2-RRHUB(ISTAGE)**2)/144. 0/10.0 

WICSTL 

57 


DELPRU=DRAGRU/AREA1 

WICSTL 

58 


OMEGRU=DELPRU/ ( 0 . 5*RH0G ( 1 )/GC*W 1**2 ) 

WICSTL 

59 


CDRUU=CDRU*DELUU2**2*PA 1/4 . 0*DD**2*TNU/UAUE**2/RC (1ST AGE ) *12. 0 

WICSTL 

GO 


GML1=( 30 . 0+BETA1 )/2. 0*PAI/180 . 0 

WICSTL 

61 


DELUL 1 =UG 1 -UP 1 *COS ( GML 1 ) 

WICSTL 

G2 


IF(N.GT.2) DELUL 1 =DELUL2 

WICSTL 

G3 


TNL=TN* (180. 0+BETA 1 +BETA2 ) /3G0 . 0 

WICSTL 

G4 


IF(IPRINT.EQ.2) WRITE(6» 4001) 

WICSTL 

G5 

4001 

FORMATdHO, /DROPLET DRAG IN ROTOR (LOWER PART)/) 

WICSTL 

GG 


CALL WICDRG(DD, DELUL 1 , RHOG(l ) , RH0G(2) , CD2, DELU2, DRAG1 , RE) 

WICSTL 

67 


DELUL2=DELU2 

WICSTL 

G8 


CDRL=CD2 

WICSTL 

G9 


RERLOW=RE 

WICSTL 

70 


DRAGRL=DR AG 1 *TNU 

WICSTL 

71 


DELPRL=DRAGRL/AREA1 

WICSTL 

72 


OMEGRL=DELPRL/ ( 0 . 5*RH0G ( 1 )/GC*Wl**2 ) 

WICSTL 

73 


CDRLL=CDRL*DELUL2**2*PAI/4. 0*DD**2*TNL/UAUE**2/RC( ISTAGE)*12. 0 

WICSTL 

74 


IF(IPRINT.EQ.2) WRITE(G, 2002) 

WICSTL 

75 

2002 

FORMAT (1H0, /DROPLET DRAG SUMMARY/) 

WICSTL 

7G 


IF ( IPRINT.EQ.2) WRITE (G, 720 )DELUU1 , DELUU2, DELUL 1, DELUL2, CDRU, CD 

WICSTL 

77 

$RUU» CDRL» CDRLL 

WICSTL 

78 

$f DRAGRU, DRAGRL 

WICSTL 

79 

720 

FORMAT (1H0»10(F10.5*2X)) 

WICSTL 

80 


RUP1=(90. O-BETA 1 )/l 80.0 

WICSTL 

81 


RL0W1=(90.0+BETA1)/180.0 

WICSTL 

82 


RUP2=(90.0-BETA2)/180.0 

WICSTL 

83 


RL0W2=(90 . 0+BETA2)/180 . 0 

WICSTL 

84 


REAUE=RERUP* ( RUP 1 +RUP2 ) *0 . 5+RERL0W* ( RL0W1+RL0W2 ) *0 . 5 

WICSTL 

85 


IF(IPRINT.EQ.2) WRITE(G, 2010) RUP1 , RUP2, RLOWl , RLOW2 

WICSTL 

8G 

2010 

FORMAT(1HO,4(F10.5*2X) ) 

WICSTL 

87 


GO TO 200 

WICSTL 

88 

C DROPLET DRAG IN STATOR 

WICSTL 

89 

100 

DD=DAU*1.0E-G*3.28 

WICSTL 

90 


UG1=W1 

WICSTL 

91 


UP1=UG1~DELU 

WICSTL 

92 


A1=WMASS*SC(ISTAGE)/12.0/U2 

WICSTL 

93 


A2=RH0W*4 . 0/3 . 0*PA I* ( DD/2 . 0 ) **3 

WICSTL 

94 
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non 


TN=0. 0 

I F ( WM ASS . GT . 0 . 0 ) GO TO 5002 
GO TO 5003 

5002 TN=A1/A2 

5003 UAUE=(U3+U2)/2.0 
DELUU1=DELUU2 

TNU=TN* (180. 0-ALF A2-ALF A3 ) /3G0 . 0 
IF ( IPRINT.EQ. 2) WRITE(G, 2005) 

2005 FORMAT ( 1H0 * *DR0PLET DRAG IN STATOR CUPPER PART)*) 

CALL WICDRG(DD, DELUU1, RHOG(2) , RHOGC2) » CD2* DELU2, DRAG1, RE) 

DELUU2=DELU2 

CDSU=CD2 

RESUP=RE 

DRAGSU=DRAG1*TNU 

AREA2=PAI*( SRTIPC ISTAGE ) **2-SRHUB C ISTAGE ) **2 ) /1 44 . 0/1 0 . 0 

DELPSU=DRAGSU/AREA2 

OMEGSU=DELPSU/ ( 0 . 5*RH0G ( 2 ) /GC*U2**2 ) 

CDSUU=CDSU*DELUU2**2*PAI/4. 0*DD**2*TNU/UAUE**2/SC( ISTAGE)*I2. 0 
DELUL1=DELUL2 

TNL=TN* ( 180 . 0+ALFA2+ALFA3 ) /3G0 . 0 
IF ( IPRINT.EQ. 2) URITECG* 200G) 

200G FORMAT ( 1H0 > *DR0PLET DRAG IN STATOR (LOWER PART)*) 

CALL W I CDRG ( DD , DELUL 1 , RHOG ( 2 ) , RHOG (2) » CD2, DELU2 , DR AG 1 , RE ) 

DELUL2=DELU2 

CDSL=CD2 

RESLOW=RE 

DRAGSL=DRAG1*TNL 

DELPSL=DRAGSL/AREA2 

OMEGSL=DELPSL/ ( 0 . 5*RH0G ( 2 ) /GC*U2**2 ) 

CDSLL=CDSL*DELUL2**2»PAI/4.0*DD**2*TML/UAUE**2/SC(ISTAGE)*12.0 
IF ( IPRINT. EQ. 2) WRITECG, 2007) 

2007 FORMAT ( 1H0 » *DR0PLET DRAG IM STATOR (SUMMARY)*) 

IF( IPRINT.EQ. 2) WRITECG, 721 ) DELUU1 * DELUU2, DELUL1 , DELUL2, CDSU, CD 
$SUU» CDSL, CDSLL 
-,DRAGSU,DRAGSL 
721 FORMAT (1HO»10(F10.5»2X)) 

SUP1=(90.0-ALFA2)/180.0 
SLOW1=(90.0+ALFA2)/180.0 
SUP2=(90.0-ALFA3)/180.0 
SLOW2=(90 . 0+ALFA3)/180 . 0 

REAUE=RESUP* ( SUP1+SUP2 )*0 . 5+RESLOW* C SL0W1+SL0W2 ) *0 . 5 
IF( IPRINT . EQ.2) WRITECG, 2011 ) SUP1 , SUP2, SLOW1 , SL0W2 
2011 FORMAT (1HO,4(F10.5»2X) ) 

200 RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

SUBROUTINE WICFML C 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE WICFMLC WG1, WG2, FMASS, RHOG1, CHORD, SIGUMA, BETA1, BETA2, 
$CDF,OMEGAF) 

PAI=3. 1415926 
UISCOG=0 . 128E-4 
UISCOL=G. 500E-4 
C=CHORD/12.0 
WGAUE=0 . 5* ( WG1+WG2 ) 

UFILM=0.5*WGAUE*UISC0G/UISCOL 
CDF=FMASS*UFILM/( 0 . 5*RH0G1*WG1*WG1*C) 

BETA1R=BETA1*PAI/180.0 
BETA2R=BETA2*PAI/180.0 
BETA3R=0 . 5* ( BETA1R+BETA2R ) 

CS 1 =COS ( BETA 1 R ) **2 

CS2=C0S ( BET A3R ) **3 

OMEG AF=CDF*S I GUM A*CS 1 /CS2 

RETURN 

END 

C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-M-+++++ 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
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c c 

C SUBROUTINE WICRSL C 

C C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE WICRSLCSIGUMA, BETA1, BETA2, CHORD, DL, CDR, OMEGAR) 

PAI=3. 141592G 
IFCDL.LT. 1.0E-G) CDR=0. 0 
IFCDL.LT. 1.0E-G) OMEGAR=0 » 0 
IFCDL.LT. 1.0E-S) GO TO 10 
BETA1R=BETA1*PA 1/180 . 0 
BETA2R=BETA2*PA 1/180 . 0 
BET A3R=0 . 5* C BETA1 R+BETA2R ) 

CS 1 =CDS C BET A 1 R ) **2 
CS2=C0S C BETA3R ) -**3 
C=CH0RD*2 . 54*0 .01*1. OEG 
A=C/DL 

IFCA.LT. 100.0) A=100. 0 
CDR= 1 . 89+ 1 . 62* ALOG 1 0 C A ) 

CDR=1.0/CDR**2.5 
0MEGAR=CDR*SIGUMA*CS1/CS2 
10 RETURN 
END 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c c 

C SUBROUTINE WICUT C 

C C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE WICUT ( ISTAGE, ASPEED, ALFA1, UZ. U1 . 

1US1 , WS1 , BETA1* W1 , BETA2 , WS2 , US2 , ALFA2 , W2 , U2 , 
1ALFA3 » U3» AK1, AK3) 

COMMON /PERDUE/ JPERFM, RH0GC3) » RERUP, RERLOW, RESUP, RESLOW 
X, PREB, RRTIPC8) » SRTIPC8) , AAAI, AAA2, AAA3, SAREACG) , SAREASC7) 

X, PC3),TGC3),XA,XUC3), XCH4, XU(3) » XWWC3) , XWT (3)»TW(3)» TWWC3) 

X, 0MEGSC7) , OMEGRCG) , GAPRCG) , GAPSCG) 

X, RRHUBCG) , RCCG) , RBLADECG) , STAGERCG) 

X, SRHUBC7) , SCC7) , SBLADEC7) , STAGESC7) 

X, SIGUMRCG) , BET1SRCG) , BET2SRCG) , AINCSRCG) , ADEUSRCG) 
SIGUMSC7) , BET1SSC7) , BET2SSC7) , AINCSSC7) , ADEUSSC7) 
UTIPG(6),UTIPC6)»UTIPDC6)» UOUC 6) , UMEANC6) , UHUBC6) »UC6)»FAI 
AREA C G ) , AREAS C7) , UU2CG) , UTIP2CG) , UMEAN2 C G ) , UHUB2 C G ) , I PRINT 
ICENT, I ICENT, FMR1 ( G ) , FMA2 (G) , IRAD, FAID 
X, NS»N51»RTC6)»RMCE)»RHC6),STC6)»SM(6)»SH(6) 

X, DSMASS, AAREAC7) , AAREASC7) , PR12DCG) , PR13DCG) , ETARD(G) 

X, DRC6)»DSC6)» DEQRCG) , DEOSCG) , BLOCK CG) » BLOCKS C7 ) 

X, BET1MRCG) , BET2MR C 6 ) , BET1MS C 7 ) , BET2MS ( 7) , RADI 1 C G ) , RADI2 C G ) 

PAI = 3.1415927 
ALFA1R = ALFA1 * PAI / 180.0 
U1 = UZ / COS C ALFA1R ) 

US1 = UZ * TAN C ALFA1R ) 

WS1 = UC ISTAGE)- US1 
T = WS1 / UZ 
BETA1R = ATAN C T) 

BETA1 = BETA1R * 180.0 / PAI 
TT = UZ **2 + WS1 **2 


X, 

X, 

X, 

X, 


U1 = SORT C TT ) 

AMACH1 = W1 / ASPEED 

CALL WICBOA COMEGRC ISTAGE) , SIGUMR C ISTAGE ) , BET 1 SR C ISTAGE 
1),BET2SRC ISTAGE), 

1 AINCSR C ISTAGE ) , ADEUSR C ISTAGE ) , 

1AMACH1 , BETA1 , DEQS, DEQN. SITACS, SITACN, BET2N , FMR1 C ISTAGE) , 
1AK1* AK3, UZ, UZ, UC ISTAGE) , RADII C ISTAGE) , RADI2C ISTAGE) ) 

BETA2 = BET2N 

BETA2R = BETA2 * PAI / 180.0 
WS2 = UZ * TAN C BETA2R ) 

US2 = UC ISTAGE) - US2 
TTT=US2/UZ 

ALFA2R = ATAN C TTT ) 

ALFA2 = ALFA2R * 180.0 / PAI 
TTTT = UZ ** 2 + WS2 ** 2 
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W2 = SORT ( TTTT ) 

TTTTT = UZ ** 2 + US2 ** 2 
U2 = SORT ( TTTTT ) 

AMACH2 = U2 / ASPEED 

CALL WICBOA (OMEGSC ISTAGE) , SI GUMS Cl STAGE) , BET 1SS Cl STAGE) , 
1BET2SS ( ISTAGE ) , AINCS5 C ISTAGE ) , ADEUSS C ISTAGE ), 

1AMACH2 , ALFA2 , DEQS, DEQN, SITACS, 5ITACN, BET2N, FMA2C ISTAGE) , 

1AK1 , AK3, UZ, UZ, 0 . 0, RAD 1 2 ( ISTAGE ) , RADII C ISTAGE+1 ) ) 

ALFA3 = EET2N 
ALFA3R=ALFA3*PAI/180 . 0 
U3=UZ/C0S( ALFA3R) 

RETURN 

END 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE WICSPD C 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE WICSPD( AMASS, ISTAGE) 

REAL M» MIN, Ml > M2, M1REL, M2REL 

COMMON /PERDUE/ JPERFM, RHOG( 3) , RERUP, RERLOW, RESUP, RESLOW 
X, PREB, RRTIPC8), SRTIPCS) , AAAI, AAA2, AAA3, SAREACS ) , SAREASC7) 

X, P(3),TGC3),XA,XUC3), XCH4, XWC3) , XWWC3) , XWT C3) » TWC3) , TWWC3) 

X , OMEGS ( 7 ) , OMEGR (6) » G APR (G) , GAPS ( G ) 

X , RRHUB ( G ) , RC C G ) , RBLADE (G), STAGER ( G ) 

X , SRHUB C 7 ) , SC ( 7 ) , SBLADE C 7 ) , STAGES ( ? ) 

X, SIGUMR(G) , BET1SRCG) , BET2SRCG) , AINCSRCG), ADEUSRCG) 

X, SI GUMS ( 7 ) , BET 1 SS C 7 ) , BET2SS ( 7 ) , A INCSS ( 7 ) , ADEUSS C 7 ) 

X, UTIPG(6)»UTIP(G)»UTIPD(6)> UOUCG) , UMEAN(G) , UHUB(G) »UCS)»FAI 
X, AREA C G ) , AREAS ( 7 ) , UU2 (G) , UTIP2CG) , UMEAN2 ( 6 ) , UHUB2 C G ) , IPR I NT 
X, I CENT , 1 1 CENT > FMR1 ( G) , FMA2CG) , IRAD, FAID 
X, NS, NS1 » RT(6) » RM(6) » RH(6) » ST(6) » SM(6) » SH(6) 

X , DSMASS, AARE A ( 7 ) , AAREAS C 7 ) , PR 12D ( 6 ) , PR1 3D C G ) , ETARD ( G ) 

X, DRCG) , DS(G) , DEQR(G) , DEQSCG), BLOCK CG) , BLOCKSC7) 

X, BETIMR(G) , BET2MRCG), BET1MSC7) , BET2MSC7) , RADII (G) , RADI2CG) 
DIMENSION TDC8) 

AJ=778. 26 
IUNIT=i 
CFT=1 . 0/1 . 8 
CFP=47. 880258 
CFD=1G. 018463 
CFU=0. 3048 
CFA=0. 09290304 
CFL=2. 54 
CFM=0. 45359237 
PAI=3. 141592G 
GC=32. 174 
TREF=518. 70 
PREF=14. 7*144.0 

A AAR 1 T=P A I * ( RRTIP C 1 ) **2-RRHUB (1 ) **2 ) / 1 44 . 0*BLOCK C 1 ) 

CM ASS= AM ASS*SQRT C TG C 1 ) /TREF ) / ( P C 1 ) /PREF ) * AAAR 1 T/SAREA C 1 ) 

C IGU INLET 

ISTAGE=NS1 

CALL WICPRP (1.0,0 . 0, 0. 0, TGC 1 ) , RMIX, CPMIX, GAMMA, G1 , G2, G3) 

CALL WICMAC (ISTAGE, AMASS, TG( 1 ) , P( 1 ) , M, UZ, C, 0. 0, 0 . 0, RMIX, CPMIX, ARE 
$AS(NS1 ) ) 

UZIN=UZ 
AIN=C 
MIN=M 
T0IN=TG( 1) 

P0IN=P( 1 ) 

PSIN=P( 1 )/( 1 . 0+G2*M**2)**Gl 
TSIN=TG ( 1 )/ ( 1 . 0+G2*M**2 ) 

RHOGIN=PSIN/RMIX/TSIN 
FA I I N=UZ IN/UT I PG ( 1 ) 

FAID=FAIIN 
GAMAIN=GAMMA 
T0IN=TG( 1 ) 

P0IN=P( 1 ) 
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C IGU I ISLET PRINTOUT 

IFCIUNIT.EQ.2) THEN 

T0IN=T0IN*CFT 

P0IN=P0IN*CFP 

TSIN=TSIN*CFT 

PSIN=PSIN*CFP 

RHQGIN=RHQGIN*CFD 

AIN=AIN*CFU 

UZIN=UZIN*CFU 

AREAS ( NS1 ) = AREAS ( NS1 ) *CF A 

END IF 

URITECG, 1000) 

1000 FORMAT (1 HI. **************** DESIGN POINT INFORMATION ************ 

$*-“-*;* ) 

URITECG, 1010) 

1010 FORMAT ( 1H0, IX, ****** COMPRESSOR INLET ******) 

URITECG, 1020) TOIN, POIN, TSIN, PSIN, RHOGIN 
1020 FORMAT C 1H0, IX, ^TOTAL TEMPERATURE AT COMPRESSOR INLETS, F10 . 5, /, 
$2X» ^TOTAL PRESSURE AT COMPRESSOR INLET=*, F10.2, /, 

$2X, ASTATIC TEMPERATURE AT COMPRESSOR INLET=*, F10.5, /, 

$2X, ASTATIC PRESSURE AT COMPRESSOR INLETS, F10 . 2, /, 

$2X, ASTATIC DENSITV AT COMPRESSOR INLETS, F10. 5) 

URITECG, 1030) AIN, U2IN, MIN, AREASCNS1 ) , FAUN 
1030 FORMAT C 1H0, IX, ^ACOUSTIC SPEED AT COMPRESSOR INLET=A F10 . 5, /, 
$2X,^AXIAL UELOCITV AT COMPRESSOR INLET=? £ » F10.5, /* 

$2X,PMACH NUMBER AT COMPRESSOR INLETS, F10. 5, /, 

S2X, ^STREAMTUBE AREA AT COMPRESSOR INLET=*. F10.5. /. 

$2X,^FL0U COEFFICIENT AT COMPRESSOR INLET=*, F10 . 5) 

IFCIUNIT.EQ.2) THEN 

T0IN=T0IN/CFT 

P0IN=P0IN/CFP 

TSIN=TSIN/CFT 

PSIN=PSIN/CFP 

RHOGIN=RHOGIN/CFD 

AIN=AIN/CFU 

UZIN=UZIN/CFU 

AREAS C NS1 ) = AREAS C NS 1 ) /CFA 

ENDIF 

C ROTOR INLET 
ISTAGE=1 
100 I=ISTAGE-1 

IFCI.EQ.O) I=MS1 
ALFA1=BET2SSC I ) 

ADEUSS C I ) =ALFA 1-BET2MS C I ) 

CALL UICMACC ISTAGE, AMASS, TGC 1 ) , PC 1 ) , M* UZ, C, 0. 0, ALFA1 , RMIX, 
$CPMIX,AREAC ISTAGE) ) 

CPMIX1=CPMIX 

GAMMA1=GAMMA 

UZ1=UZ 

A1=C 

M1=M 

PS1=PC 1 )/C 1 . 0+G2*Ml**2)**Gl 
TS1=TGC 1 )/C 1 . 0+G2*Ml**2) 

RH0GS1=PS1/RMIX/TS1 
FAIRIN=UZ1/UTIPGC ISTAGE) 

ALFA1R=ALFA1*PAI/180. 0 
U1 =UZ 1 /COS C ALFA 1R) 

US1=UZ1*UICTANC ALFA1R) 

US1=U(ISTAGE)-US1 

UU=US1/UZ1 

BETA1R=ATANCUU) 

BETA 1=BETA1R* 180 . O/PAI 

BET1SRC ISTAGE )=BETA1 

AINCSR C ISTAGE ) =BETA 1-BET1MR C ISTAGE) 

Ul =UZ1 /COS C BETA 1R) 

M1REL=U1/A1 

TREL1=C 1 . 0+G2*MiREL**2)*TSl 
PREL1=C 1 . 0+G2*MlREL**2)**Gl*PSl 

IFC ISTAGE. GE. 2) DSC ISTAGE-1 )=1 . 0-U1/U2+ABSCUS2-US1 )/2. 0/ 

$SIGUMSC ISTAGE-1 )/U2 
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I F ( 1ST AGE .GE.2) DEQS C I ST AGE-1 ) =COS ( ALF AIR ) /COS C ALF A2R ) * 
$(1.12+0. 61*C0S ( ALFA2R ) **2/SI GUMS ( ISTAGE-1 ) * ( WICTAM ( ALFA2R)- 
$WICTANCALFA1R) ) ) 

IFC ISTAGE.GT.MS) GO TO 101 
C ROTOR OUTLET 

PC2)=PR12D(ISTAGE)*P(1) 

TR1 2= ( PR12D ( ISTAGE ) ** Cl . 0/G1 ) - 1 . 0 ) /ETARD ( ISTAGE ) +1 . 0 
TG(2)=TR12*TG( 1 ) 

CALL WICPRPC 1 .0,0. 0,0 . 0» TGC2) * RMIX, CPMIX, GAMMA, G1 , G2» G3) 

GAMMA2=GAMMA 

CPMIX2=CPMIX 

GAMM AU= ( GAMMA 1 +GAMMA2 ) /2 . 0 
CPMIXU=(CPMIXl+CPMIX2)/2.0 
G1 AU=GAMMAU/ ( GAMMAU-1 . 0 ) 

G2AU= ( GAMM AU- 1 . 0 ) /2 . 0 
PR13I=(TG(2)/TG(1 ) )**G1AU 
DELT=TG(2)-TG( 1) 

US2= ( U ( ISTAGE ) *US1 +DELT*CPMI XU*GC* A J ) /UU2 ( I STAGE ) 

JJ=1 

UZ2AS=UZ1 

200 US2UZ2=US2/UZ2AS 
ALF A2R= ATAM ( US2UZ2 ) 

ALFA2=ALFA2R*180. 0/PAI 
BET 1 SS ( I STAGE ) = ALFA2 

AIMCSS ( ISTAGE ) =ALFA2-BET1MS ( ISTAGE) 

WS2=UU2( ISTAGE)-US2 
WS2UZ2=WS2/UZ2AS 
BETA2R=ATAM ( WS2UZ2 ) 

BETA2=BETA2R*180. 0/PAI 

BET2SRC ISTAGE )=BETA2 

ADEUSRC ISTAGE)=BETA2-BET2MR( ISTAGE) 

U2=UZ2AS/C0S C ALFA2R ) 

W2=UZ2AS/C0S(BETA2R ) 

TS2=TG ( 2 ) -U2**2/ ( 2 . 0*CPM I X2*GC*A J ) 

A2=S0RT ( GAMMA2*RMIX*TS2*GC ) 

M2=U2/A2 

PS2=P ( 2 ) / ( 1 . 0+G2*M2**2 ) **G1 

RH0GS2=PS2/RMIX/TS2 

M2REL=W2/A2 

TREL2=( 1 . 0+G2*M2REL**2)*TS2 
PREL2= ( 1 . 0+M2REL**2 ) **G1*PS2 
UZ2CL=AMASS/(RH0GS2*AREAS( ISTAGE) ) 

EPS=1.0E~G 

IFC JJ.EQ.2) GO TO 201 

IF( JJ.GT.2) GO TO 202 

X1=UZ2AS 

Y1=UZ2CL 

UZ2AS=UZ2CL 

JJ=JJ+1 

GO TO 200 

201 X2=UZ2AS 
Y2=UZHCL 

UZ2AS=WICMEW(X1 , VI , X2, Y2) 

JJ=JJ+1 
GO TO 200 

202 I F ( ( ABS ( UZ2 AS-UZ2CL ) /UZ2 AS ) . LT . EPS ) GO TO 300 
X1=X2 

Y1=Y2 

X2=UZ2AS 

Y2=UZ2CL 

UZ2 AS=W I CMEW (X1,Y1,X2,Y2) 

JJ=JJ+1 
GO TO 200 
300 UZ2=UZ2CL 

FAI0UT=UZ2/UTIPG( ISTAGE) 

DRCISTAGE)=1.0-W2/Wl+ABS(WSl-WS2)/2.0/SIGUMR(ISTAGE)/Wl 
DEQR ( I STAGE ) =COS ( BETA2R ) /COS ( BETA i R ) * 

$C 1. 12+0 .61*C0S(BETA1R)**2/SIGUMR( ISTAGE)* 

$ ( W I CT AM ( BET A 1 R ) -W I C T AM ( BE T A2R ) ) ) 

PLOSSR=PR 1 2D ( I STAGE ) / ( TG ( 2 ) /TG ( 1 ) ) **G 1 AU 
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PRREL I = C 1 . 0+G2AU*U C I STAGE ) **2/ C GAMMAU*RMI X*TREL 1 *GC ) 


WICSPD 

198 

$* C C UU2 (I STAGE ) /U C 1ST AGE ) ) **2-1 . 0 ) ) **G 1 AU 


WICSPD 

199 

IFCPRRELl.LT. PLOSSR) PRRELI=1.0 


WICSPD 

200 

OMEGRC ISTAGE) = (PRRELI-PLOSSR)/'C 1 . 0-PS1/PREL1 ) 


WICSPD 

201 

C STATOR OUTLET 


WICSPD 

202 

PLOSSS=PR 1 3D (I STAGE ) /PR 1 2D ( I ST AGE ) 


WICSPD 

203 

PR 1 3= ( TG ( 2 ) /TG Cl) ) **G1 AU*PLOSSR*PLOSSS 


WICSPD 

204 

OMEGSC ISTAGE ) = C 1 . O-PLOSSS ) / C 1 . 0-PS2/P ( 2) ) 


WICSPD 

205 

ETASG=CPR13**C1.0/G1AU)-1.0)/CTR12-1.0) 


WICSPD 
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PC3)=PR13*PC 1 ) 


WICSPD 

207 

TG(3)=TG(2) 


WICSPD 

208 

TDC ISTAGE)=TG( 1 ) 


WICSPD 

209 

C PRINTOUT OF STAGE PERFORMANCE 


WICSPD 

210 

IFC IUNIT.EQ.2) THEN 


WICSPD 

211 

TG ( 1 ) =TG Cl) *CFT 


WICSPD 

212 

TG ( 2 ) =TG ( 2 ) *CFT 
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213 

PC 1 )=PC 1 )*CFP 
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PC2)=PC2)*CFP 
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TS1=TS1*CFT 


WICSPD 

21G 

TS2=TS2*CFT 
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PS1=PS1*CFP 
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PS2=PS2*CFP 
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RHOGSl=RHOGSl*CFD 


WICSPD 

220 

RH0GS2=RH0GS2*CFD 
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UZ1=UZ1*CFU 
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U22=U22*CFU 
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U2=U2*CFU 
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W1=W1*CFU 
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W2=W2*CFU 
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227 

US1=US1*CFU 
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US2=US2*CFU 
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WS1=WS1*CFU 
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WS2=WS2*CFU 
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231 

U C I STAGE ) =U C ISTAGE ) *CFU 
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232 

UU2 C I STAGE ) =UU2 C I STAGE ) *CFU 


WICSPD 

233 

TREL1=TREL1*CFT 


WICSPD 

234 

PREL1=PREL1*CFP 


WICSPD 

235 

TREL2=TREL2*CFT 
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PREL2=PREL2*CFP 


WICSPD 

237 

AREA C I STAGE ) =AREA C I STAGE ) *CFA 


WICSPD 

238 

AREAS ( ISTAGE )=AREAS( ISTAGE )*CFA 


WICSPD 

239 

RADI 1 C ISTAGE ) =RADI 1 C ISTAGE ) *CFL 


WICSPD 

240 

RADI2C ISTAGE) =RADI2C ISTAGE )*CFL 


WICSPD 

241 

ENDIF 
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WRITECB, 1000) 
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243 

HRITECS» 1100) ISTAGE 


WICSPD 

244 

1100 FORMAT C 1HO, IX, ****** STAGE=*» 12* * ******) 


WICSPD 

245 

WRITECG, 1101) 


WICSPD 

24G 

1101 FORMAT C 1H0. 16X, *T0TAL*,8X, XTOTAL*, 7X, *STATIC*, 7X, *STATIC*,7X, 

WICSPD 

247 

$*STATIC*, /, 17X, *TEMP*, 7X, *PRESSURE*, 7X, *TEMP*, 7X, *PRESSUREX, GX, 

WICSPD 

248 

$*DENSITY*) 


WICSPD 

249 

WRITEC6* 1110) TG(1),P(1)»TS1» PS1» RHOGS1 


WICSPD 

250 

1110 FORMAT ( 1H0 > IX, XROTOR INLET*, 1X,5(F10.3,3X) ) 


WICSPD 

251 

WRITECG, 1120) TGC2)»PC2)» TS2, PS2, RH0GS2 


WICSPD 

252 

1120 FORMAT C 1H , IX, XROTOR OUTLETS, 5CF10. 3, 3X)) 


WICSPD 

253 

WRITECG, 1111) 


WICSPD 

254 

1111 FORMAT C 1H0 , 1GX, XAXIALX, GX, XABSOLUTEX, 5X, XRELATIUEX, 5X, XTAN 

COMP*, 

WICSPD 

255 

$5X» *TAN COMPX, /, 15X, XUELOCITYX, 5X, XUELOCITYX, 5X, XUELOCITYX, 

4X, 

WICSPD 

25G 

$XOF ABS UEL*,3X,XGF REL UELX) 


WICSPD 

257 

WRITEC6, 1130) U21 , U1 » Wl> US1, WS1 


WICSPD 

258 

1130 FORMAT C 1H0, IX, XROTOR INLETS, 1X,5CF10.5,3X) ) 


WICSPD 

259 

WRITECG, 1140) U22, U2» W2, US2, WS2 
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2G0 

1140 FORMAT C 1H , IX, XROTOR OUTLETS, 5CF10. 5, 3X) ) 


WICSPD 

2G1 

WRITECG, 1141) 


WICSPD 

2G2 

1141 FORMAT C 1H0, 15X, XROTOR*, 7X, XABS MACH*, 5X, XREL MACH*, 5X, XREL 

TOTAL*, 

WICSPD 

2G3 

$4X, XREL TOTALS, /, 1GX, XSPEEDX, 8X, XNUMBERX, 7X, XNUMBERX, 7X»*TEMPX, 8X, 

WICSPD 

2G4 

$XPRESSUREX ) 


WICSPD 

2G5 

WRITECG, 1150) UC ISTAGE) , Ml, M1REL, TREL1 , PREL1 


WICSPD 

2GG 

1150 FORMAT C 1H0, IX, XROTOR INLET** 1X,5CF10.3,3X) ) 


WICSPD 

2G7 
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WRI TE C 6 , 1 1 60 ) UU2 (I STAGE ) , M2 , M2REL , TREL2 , PREL2 
1160 FORMAT ( 1H , 1X,*R0T0R OUTLET*, 5<F10. 3. 3X) ) 

I=ISTAGE 

IF( I STAGE. EQ. 1 ) 1=8 
WRITE(6» 11G1) 

11B1 FORMAT (1H0,14X,*ABS FLOW*, 5X, *REL FLOW*, 4X» *STREAMTUBE*» 18X, 
$*FLOW*» 1BX, *ANGLE*, 8X, *AMGLE*, 8X, *AREA*, SX, *RADIUS*, 5X, 
$*COEFFICIENT*) 

WRITEC 6, 1170 ) BET2SSC 1-1 ) , BET1SRC ISTAGE) , AREAC ISTAGE) , 

$R AD I 1 C I ST AGE ) , F A I R I N 

1170 FORMAT ( 1H0, IX, *ROTOR INLET*. 1X,5(F10.5, 3X) ) 

WRITECB, 1 180 ) BET 1SS Cl STAGE ) , BET2SRC ISTAGE) , AREAS C ISTAGE) , 

$RABI2C ISTAGE) , FAIOUT 

1180 FORMAT C 1H ,1X,*R0T0R OUTLET*, 5CF10. 5, 3X)) 

WRITECB, 1190) PR13, ETASG, PR12DC ISTAGE) , ETARDC IST.' GE) , TR12 
1190 FORMAT C 1H0, IX, *STAGE TOTAL PRESSURE RATIO AT DESIGN POINT=*, F10 .5, 
$/,2X,*STAGE ADIABATIC EFFICIENCY AT DESIGN POINT=*, F10 . 5, /, 2X, 
$*ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT=*, F10.5, /, 2X, 

$*RDTOR ADIABATIC EFFICIENCY AT DESIGN POINT=*, F10.5, /, 2X, 

$*ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT=*, F10.5) 

IF C IUNIT.EQ.2) THEN 

TGC 1 )=TGC 1 )/CFT 

TGC2)=TGC2)/CFT 

PC 1 )=P( 1 )/CFP 

P(2)=PC2)/CFP 

TS1=TS1/CFT 

TS2=TS2/CFT 

PS1=PS1/CFP 

PS2=PS2/CFP 

RH0GS1=RH0GS1/CFD 

RH0GS2=RH0GS2/CFD 

U21=UZ1/CFU 

UZ2=UZ2/CFU 

U1=U1/CFU 

U2=U2/CFU 

W1=W1/CFU 

W2=W2/CFU 

US1=US1/CFU 

US2=US2/CFU 

WS1=WS1/CFU 

WS2=WS2/CFU 

UCISTAGE)=U(ISTAGE)/CFU 
UU2C ISTAGE) =UU2C ISTAGE )/CFU 
TREL1=TREL1/CFT 
PREL 1 =PREL 1 /CFP 
TREL2=TREL2/CFT 
PREL2=PREL2/CFP 
AREA C I STAGE ) =ARE A C ISTAGE ) /CFA 
AREASC ISTAGE)=AREASC ISTAGE)/CFA 
RADI2C ISTAGE)=RADI2( ISTAGE)/CFL 
END IF 
C REPEAT 

TGC 1 )=TGC3) 

PC1)=PC3) 

I F C I STAGE . EQ . NS ) ADEUSS C NS ) =BET2SS C NS ) -BET2MS C NS ) 

ISTAGE=ISTAGE+1 

IFC ISTAGE. EQ. NS 1) GO TO 101 

GO TO 100 

C OUERALL PERFORMANCE AT DESIGN POINT 
101 OUALPR=PC3)/POIN 
OUALTR=TG C 3 ) /TO IN 
GAMMAU= ( GAMAIN+GAMMA ) /2 . 0 
G1AU=GAMMAU/CGAMMAU-1 . 0 ) 

OUALEF= C OUALPR** C1.0/G1AU)-1.0)/C OUALTR- 1.0) 

OUALDT=TG ( 3 ) -TO IN 

C PRINTOUT OF OUERALL PERFORMANCE AT DESIGN POINT 
IF C IUNIT.EQ.2) THEN 
T0IN=T0IN*CFT 
P0IN=P0IN*CFP 
CMASS=CMASS*CFM 
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OUALDT =0UALDT *CFT 
DO 422 1=1 , NS 
TD ( I ) =TD Cl) *CFT 

422 CONTINUE 
ENDIF 

WRITECG, 1000) 

WRITEC6, 421 ) 

421 FORMAT UHO, *********** OUERALL PERFORMANCE AT DESIGN POINT **** 

$->*****?£) 

WRITE(6,425) TOIN 

425 FORMAT ( 1HO, IX, ^COMPRESSOR INLET TOTAL TEMPERATURES, FS. 2) 

WRITEC6, 42G) POIN 

42G FORMAT C 1H0, IX, /COMPRESSOR INLET TOTAL PRESSURES, F10. 2) 

WRITECG, 427) CMASS 

427 FORMAT ( 1H0, IX, ^CORRECTED MASS FLOW RATES, FS. 3) 

WRITECG, 42S) OUALPR 

429 FORMAT C 1HO, IX, ^OUERALL TOTAL PRESSURE RATIOS, FG. 4) 

WRITECG, 430) OUALTR 

430 FORMAT ( 1HO, IX, FOUERALL TOTAL TEMPERATURE RATI0S,FG.4) 

WRITECG, 431) OUALEF 

431 FORMAT C 1H0, IX, ^OUERALL ADIABATIC EFFICIENCYS, FG. 4) 

WRITECG, 432) OUALDT 

432 FORMAT C 1H0, IX, ^OUERALL TEMPERATURE RISES, F8. 3) 

WRITECG, 1G21) 

1G21 FORMAT C 1H0 , 14X, *1*, 5X, F2*, 5X, *3*, 5X, * 4 *, 5X, *5*, 5X, *GA 4X, *IGU*) 
WRITECG, 1710) C BET 1 SRC I ) , 1=1 , NS) 

1710 FORMAT C 1H , 1XSBET1SRC I )*, 2X, GCF5. 2, IX) ) 

WRITECG, 1720) CBET2SRC I ) , 1=1 , NS ) 

1720 FORMAT C 1H , 1XSBET2SRC I S, 2X, GCF5.2, IX) ) 

WRITECG, 1730) C AINCSRC I ) , 1=1, NS) 

1730 FORMAT C 1H , 1XSAINCSRC I S, 2X, GCF5.2, IX) ) 

WRITECG, 1740) C ADEUSRC I ) , 1=1, NS) 

1740 FORMAT C 1H , 1XSADEUSR C I S» 2X, GCF5. 2, IX) ) 

WRITECG, 17G0) CBET1SSC I ) , 1=1, NS) 

17G0 FORMAT C 1H , 1XSEET1SSC I )A 2X, GCF5.2, IX) ) 

WRITECG, 1770) CBET2SS C I ) , 1=1 , NS1 ) 

1770 FORMAT C 1H , 1XSBET2SSC I S, 2X, 7CF5. 2, IX) ) 

WRITECG, 1780) C AINCSSC I ) , 1=1 , NS ) 

1780 FORMAT C 1H , 1XSAINCSSC I S, 2X, GCF5. 2, IX) ) 

WRITECG, 1790) ( ABEUSSC I ) , 1=1 , NS) 

1790 FORMAT C 1H , 1XSADEUSSC I S, 2X, GCF5. 2, IX) ) 

WRITECG, 1791) ( TDC I ) , 1=1 , NS) 

1791 FORMAT C 1H , 1XSTDC I S, GX, GCF5. 1 , IX) ) 

WRITECG, 1793) COMEGSCI), 1=1, NS) 

1793 FORMAT C 1H , 1XSOMEGSC I S, 3X, GCF5.3, IX) ) 

WRITECG, 1794) COMEGR C I ) , 1=1 , NS) 

1794 FORMAT C 1H , 1XSOMEGRC I S, 3X, GCF5.3, IX) ) 

IFCIUNIT.EQ.2) THEN 

T0IN=T0IN/CFT 
POIN=POIN/CFP 
CMASS=CMASS/CFM 
OUALDT=OUALDT/CFT 
DO 423 1=1, NS 
TDC I)=TD( I )*CFT 

423 CONTINUE 
ENDIF 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

*** STGSTK - A COMPUTER CODE FOR PREDICTING MULTISTAGE AXIAL FLOW C 

COMPRESSOR PERFORMANCE USING A MEANLINE STAGE STACKING METHOD. C 

DOCUMENTATION NASA TP-XXXX, XXX, 1980, BY R. J. STEINKE C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE NASA 

COMMON /PERDUE/ JPERFM, RHOGC3) , RERUP, RERLDW, RESUP, RESLOW 
X, PREB , RRT IP C 8 ) , SRT I P C 8 ) , AAA 1 , A AA2 , AAA3, SAREA C G ) , S ARE AS C 7 ) 

X, PC3) , TGC3) » XA, XUC3) , XCH4, XWC3) , XWWC3) , XWT C3) » TWC3) , TWWC3) 


WICSPD 

338 

WICSPD 

339 

WICSPD 

340 

WICSPD 

341 

WICSPD 

342 

WICSPD 

343 

WICSPD 

344 

WICSPD 

345 

WICSPD 

34G 

WICSPD 

347 

WICSPD 

348 

WICSPD 

349 

WICSPD 
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358 
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359 
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3G0 

WICSPD 

3G1 

WICSPD 

3G2 

WICSPD 
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WICSPD 

3G4 

WICSPD 
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WICSPD 
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380 
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X, 0MEGSC7) » OMEGRCG) » GAPRCG) » GAPSC6) NASA 13 

X, RRHUBCG) , RCCG) , RBLADEC6) , STAGER (G) NA5A 14 

X, SRHUBC7) , SCC7) , SBLADEC7) , STAGESC7) NASA 15 

X, SIGUMRC6) , BET1SRC6) , BET2SRC6) , AINCSRCG) , ADEUSR(G) NASA 16 

X, 5IGUMSC7) , BET15SC7) , EET2SSC7) , AINCSSC7) , ADEUSSC7) NASA 17 

X, UTIPGC6)»UTIPC6)»UTIPDC6)» U0UC6) » UMEANC6) , UHUBC6) » UC6) » FAI NASA 18 

X, AREAC6) » AREASC7) > UU2C6) » UTIP2CG) » UMEAN2CG) > UHUB2CG) » IPRINT NASA 19 

X, I CENT, IICENT»FMR1C6)»FMA2C6)» IRAD,FAID NASA 20 

X, NS,NS1,RTCG)»RMC6)»RH(6),STC6)»SMCG)»SHC6) NASA 21 

X, DSMASS, AAREAC7) » AAREASC7) » PR12DC6) » PR13DCS) » ETARDCG) NASA 22 

X, DRC6) »DSC6) , DEQRCG)» DEQSC6) » BLOCK C6) » BL0CKSC7) NASA 23 

X, BETIMR(G) » BET2MRC6) , BET1MSC7) » BET2M3C7) » RADII (G) , RABI2C6) NASA 24 

COMMON /UECTOR/ CPC0C6), TITLEC 12) » RT2C12), RH2C12), RT3C12), NASA 25 

XRH3C12), PHIREF ( 12) » PSIREFC12), ETAREF C 12) » PHIDESC 12, 9, 8) , NASA 2G 

XPSIDESC 12, 9,8), ETADESC 12, 9, 8) , PHIC12,9,8), P5I(12,9,8), ETA(12,9 NASA 27 

X, 8) » DPHIAC 12) , EFSIAC 12) , DETAC12), N5TAGEC 12) » PCTSPDC9) , NASA 28 

XBET2MC 12,9) , BLEEDC12,9), TTC13), PTC 13) , PRC 12) » TRC12), PR0C12), NASA 29 

XTR0C12), ETA0C12), BET3MRC 12, 9 ) , UZ2MC12,9), UZ3MC12,9), AREA2C 12) NASA 30 

X, AREA3C 12) , RM2C12), RM3C12), UT2C12), UT3C12), UM2C12), UM3C12) NASA 31 

X»BAT2MRC 12,9), DPS ISC 12,9), RSOLMC 12) , RK2MC12), CB2MC12), CB2MRC NASA 32 

X12) , CB3MRC 12) , RINCMC 12) , RDFMC12), SK2MC12), SINCMC 12) , BET3MC 12 NASA 33 

X, 9) , PHIFIXC 12) , BPHIF C 12) , CPREFC 12) , GF1REFC 12) , ETAINPC 12) NASA 34 

X, FLGCALC 12, 9) , ETARATC9), DB2MC12»9), DB2MRC 12, 9) , DB3MC 12, 9 ) , DB3MR NASA 35 

XC 12, 9) , B2ME3RC 12, 9) , 5PEEBF, FLOUIN, U3DU2RC 12) , U2U3C 12) , DB3MRGC 12) NASA 3G 

X, DB3MRNC 12, 9) , DB3MRPC 12, S) , CPCMCG) , CPCSCG) NASA 37 

*» RK3MC 12) , RDEUC 12) , RDEF C 12) , GMREF C 12) NASA 38 

*,PSID1C12,2,8),PSID2C12,2,8),PSID3C12,2,8),PSID4C12,2,8) NASA 39 

*,PSID5C12,2,8),PSI1C12,2»B),PSI2C12,2,8),PSI3C12,2,8) NASA 40 

*» PSI4C 12, 2, 8) » PSI5C 12, 2, 8) NASA 41 

■ J -,PSID1LC12,2,S), PSID2LC 12,2,8), PSID3LC 12,2,8) NASA 42 

*» PSID4L C 12, 2, 8) , PSID5L C12»2,S),PSI1LC12»2,8) NASA 43 

*, PSI2LC 12, 2,8), PSI3LC 12, 2,8), PSI4LC 12, 2,8), PSI5LC 12, 2,8) NASA 44 

COMMON /SCALER/ RU, PI, G, AJ, RAD, RG, DCP, GJ, G2J, RPMRAD, NSTA NASA 45 

X, NSPE, NPTS, PO, TO, BESRPM, BESFLO, UNITS NASA 4G 

X, CP, GAMMA, GM1, GF1 , GF2, GF3, SPDPSI , SPDPHI, DRDEUG, DRDEUN, DRDEUP NASA 47 

X, XAR, XMET , XSTM NASA 48 

X, STAGEN, SPEEBN, CKAPTS, WTMOLE NASA 49 

C *** CALCULATE FIXED PARAMETERS NASA 50 

PO = P0*144.0 NASA 51 

DO 20 1=1, NSTA NASA 52 

AREA2C I )= CRT2C I ) +RH2 Cl) ) W CRT2C I ) -RH2 CD) *P 1/144.0 NASA 53 

ARE A3 C I )= CRT3CI)+RH3CI))*CRT3CI)-RH3CI))*PI/144.0 NASA 54 

IFCIRAD.EQ. 1) RM2C I )=RT2C I ) NASA 55 

IFCIRAD.EQ. 1) RM3 Cl) =RT3 C I ) NASA 5G 

IF C IRAD.EQ. 2) RM2CI)=RMCI) NASA 57 

IFCIRAD.EQ. 2) RM3CI)=SM(I) NASA 59 

IFCIRAD.EQ. 3) RI12C I )=RH2C I) NASA 59 

IFCIRAD.EQ. 3) RM3C I )=RH3C I ) NASA GO 

AREA2C I ) =SAREAC I ) NASA 61 

AREA3C I ) =SAREAS Cl) NASA G2 

UM2C I )= RM2CI)*DESRPM*RPMRAD NASA G3 

UM3C I ) = RM3CI)*DESRPM*RPMRAD NASA G4 

BET2MC 1,1) = BET2MCI, 1)/RAD NASA G5 

RK2MCI) = RK2MCI) + CB2MRCI) NASA GG 

SK2MCI) = SK2MCI) + CB2MCI) NASA G7 

CB2MC I )= CB2MC I)/RAD NASA G8 

CB2MRC I )= CB2MR CD/RAD NASA G9 

CB3MRC I ) = CB3MRC I)/RAD NASA 70 

20 CONTINUE NASA 71 

CALL CSPREF NASA 72 

IFCETADESC 1, 1,1) .EQ. 0.0) CALL CSETA NASA 73 

CALL CSPSIC0.00, 1) NASA 74 

DO 100 1=1, NSTA NASA 75 

DO 100 K=1 , NPTS NASA 7G 

PSID1CI, 1, K)=PSIDESC I, 1, K) NASA 77 

100 CONTINUE NASA 78 

CALL CSPSIC0.025, 1) NASA 79 

DO 101 1=1, NSTA NASA 80 

DO 101 K=1 » NPTS NASA 81 

PSID2CI, 1, K)=PSIDESC I, 1»K) NASA 82 
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101 CONTINUE 

NASA 

83 

CALL CSPSICO. 075, 1) 

NASA 

84 

DO 102 1=1 » NSTA 

NASA 

85 

DO 102 K=1 » NPTS 

NASA 

8G 

PSID3C I, It K)=PSIDESC I, It K) 

NASA 

87 

102 CONTINUE 

NASA 

88 

CALL CSPSICO. 125. 1) 

NASA 

89 

DO 103 1=1, NSTA 

NASA 

90 

DO 103 K=l» NPTS 

NASA 

91 

PSID4(It It K)=PSIDES( It ltK) 

NASA 

92 

103 CONTINUE 

NASA 

93 

CALL CSPSICO. 150, 1) 

NASA 

94 

DO 104 1=1 t NSTA 

NASA 

95 

DO 104 K=i » NPTS 

NASA 

96 

PSID5CI, 1, K)=PSIDESC I, 1»K) 

NASA 

97 

104 CONTINUE 

NASA 

98 

CALL CSPSICO. 00,2) 

NASA 

99 

DO 200 1=1, NSTA 

NASA 

100 

DO 200 K=1»NPTS 

NASA 

101 

PSID1LCI, 1 , K)=PSIDESC I, 1,K) 

NASA 

102 

200 CONTINUE 

NASA 

103 

CALL CSPSICO. 025,2) 

NASA 

104 

DO 201 1=1, NSTA 

NASA 

105 

DO 201 K=1 , NPTS 

NASA 

10G 

PSID2LCI, 1 , K)=PSIDESC I, 1,K) 

NASA 

107 

201 CONTINUE 

NASA 

108 

CALL CSPSICO. 075,2) 

NASA 

109 

DO 202 1=1, NSTA 

NASA 

110 

DO 202 K=1 , NPTS 

NASA 

111 

PSID3LC 1, 1, K)=PSIDESCI» It K) 

NASA 

112 

202 CONTINUE 

NASA 

113 

CALL CSPSICO. 125,2) 

NASA 

114 

DO 203 1=1, NSTA 

NASA 

115 

DO 203 K=1,NPTS 

NASA 

116 

PSID4LCI, 1,K)=PSIDESCI, 1,K) 

NASA 

117 

203 CONTINUE 

NASA 

118 

CALL CSPSICO. 150, 2) 

NASA 

119 

DO 204 1=1, NSTA 

NASA 

120 

DO 204 K=1 , NPTS 

NASA 

121 

PSID5LC 1,1, K)=PSIDESC I, 1, K) 

NASA 

122 

204 CONTINUE 

NASA 

123 

DO 800 1=1,12 

NASA 

124 

DO 800 J=1 , NSPE 

NASA 

125 

DPSISCI, J)=0.0 

NASA 

12G 

800 CONTINUE 

NASA 

127 

IF CSPDPSI.EQ. 1.0) CALL CSPSD 

NASA 

128 

CALL CSPAN 

NASA 

129 

DO 51 1=1, NSTA 

NASA 

130 

BET2MC 1,1) = BET2MCI, 1) * RAD 

NASA 

131 

51 BET3MRC 1,1) = BET3MRCI,1) * RAD 

NASA 

132 

C *** WRITE INTERMEDIATE OUTPUT 

NASA 

133 

WRITE CG, 2120) 

NASA 

134 

IFCUNITS.EQ. 1 . 0 ) THEN 

NASA 

135 

DO 300 1=1, NSTA 

NASA 

13G 

FLOC AL C 1 , 1 ) =FLOCAL C I, 1)*0. 453592 

NASA 

137 

300 CONTINUE 

NASA 

138 

ENDIF 

NASA 

139 

WRITE CG, 2051 ) CNSTAGEC I ) , PHIREFC I ) , PSIREFC I ) , ETAREFC I ) , CPREFC I ) , 

NASA 

140 

XGMREF CI)» FLOCAL C 1 , 1 ) , 

NASA 

141 

X BET2M C I , 1 ) , BET3MRC 1,1), RINCM Cl), RDFM C I ) , SINCMC I ), 

NASA 

142 

XI=1 , NSTA) 

NASA 

143 

IFCUNITS.EQ. 1.0) THEN 

NASA 

144 

DO 310 1=1, NSTA 

NASA 

145 

FLOCAL C 1 , 1 ) =FLOCAL C 1 , 1 ) /0 . 453592 

NASA 

14G 

310 CONTINUE 

NASA 

147 

ENDIF 

NASA 

148 

2051 FORMAT C110H STAGE PHIREF PSIREF ETAREF CPREF 

NASA 

143 

X GMREF FLOCAL BET2M BET3MR RINCM RDFM, 10H S 

NASA 

150 

XINCM//C5X, I5,5F10.4,4F10.2»F10.4,F10.2)) 

NASA 

151 

WRITECG, 3474) 

NASA 

152 
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3474 FORMAT ( 1H-* STAGE UZ2M UZ3M*) NASA 

DO 177 I=1»NSTA MASA 

WRITEC G» 3473) I , UZ2MC It 1) , UZ3MC I> 1 ) MASA 

3473 FORMAT (4X» I2»F14.2»F11.2) MASA 

177 COMTIMUE MASA 

DO 52 I=1,MSTA MASA 

BET2MC I, 1 ) = BET2MCI, 1 ) / RAD MASA 

52 BET3MRC 1,1) = BET3MRCI.1) / RAD MASA 

WRITE (6, 2120 ) MASA 

WRITE (6, 2052) (NSTAGEC I ) , 1=1 , 12) , (PCTSPDCJ), (DPSISCI,J), 1=1,12 MASA 
1 )* J=1»MSPE) MASA 

2052 FORMAT (20X,27H DPSIS ( STAGE, PCT SPD) TABLE//40X, 13H STAGE NUMBER/ MASA 
18H PCT SPD, 12C 15, 3X)//( 13F8.4) ) MASA 

DO GO 1=1 , NSTA MASA 

DO GO J=1 , MSPE MASA 

DO GO K=1 , MPTS MASA 

PHI C I, J, K)=PHIDES( I, J, K) MASA 

IF CSPDPHI.EQ. 1.0) PHKI, J,K) = PHI (I, J,K)*(1.0 + ( (PHI ( I, J, K)/PHI MASA 
XREF(I) )**C1.0/SPEEDF) - 1 . 0 )*1 . 0*ABS( 1 . 0 - SPEEDF) ) MASA 

C *** OPTION TO ALTER FLOW COEFICIENT FOR OFF DESIGN SPEEDS MASA 

PSIICI, J,K)=PSID1(I, 1,K) MASA 

PSI2CI, J,K)=PSID2(I, 1,K) MASA 

PSI3C I » J, K)=PSID3( 1 , 1 » K ) MASA 

PSI4CI, J*K)=PSID4( I, 1, K) MASA 

PSI5( I , J, K)=PSID5( I , 1 » K) MASA 

PSICI, J,K)=PSI1(I, 1,K) MASA 

PSI1LCI, J,K)=PSID1L(I, 1,K) MASA 

PSI2LC I , J, K )=PSID2L( I, 1, K) MASA 

PSI3L(I»J»K) =PSID3L ( I , 1 , K) MASA 

PSI4LCI, J»K)=P3ID4L(I, 1,K) MASA 

PSI5LC I, J, K)=PSID5L( I, 1 , K) MASA 

ETA(I,J»K) = ETADESC 1,1, K)*ETARAT C J) + DETACI) MASA 

GO COMTIMUE MASA 

DO 70 1=1, MSTA MASA 

WRITE (6, 2120 ) MASA 

WRITECG, 20G0 ) NSTAGEC I ) , ( (PHI ( I , J, K) , PSI ( I , J, K) , MASA 

1ETA(I,J>K)*J=1* l)s>K=l> MPTS) MASA 

IFCMSPE.LT. 4) GO TO 70 MASA 

WRITE (6,2120) MASA 

WRITEC 6, 20G0 ) MSTAGEC I) , ( (PHI ( I, J, K) ,PSI ( I, J, K) , MASA 

1ETAC I, J, K) , J=4, G ) , K=1 , MPTS ) MASA 

IFCMSPE.LT. 7) GO TO 70 MASA 

WRITE (G» 2120) MASA 

WRITEC G, 20G0 ) MSTAGEC I ) , ( C PHI ( I , J, K ) , PSI C I , J, K ) , MASA 

1ETACI, J,K), J=7,9),K=1,NPTS) MASA 

70 COMTIMUE MASA 

20S0 FORMAT (20X,3SH COMPUTED CHARACTERISTICS FOR STAGE MO., 13// MASA 

13C30H PHI PSI ETA )/(9Fl MASA 

20.4)) MASA 

2120 FORMAT C1H0////) MASA 

RETURN MASA 

END MASA 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CSIMPT 
SUBROUTINE CSIMPT CSIMPT 

C *»* SUBROUTINE CSINPT READS AND WRITES THE INPUT DATA CSIMPT 

C *** ALL INPUT DATA MUST BE ENGLISH UNIT CSIMPT 

C *** UALUE OF INPUT DATA ^SPEEDM^ MUST ALWAYS BE 1 . 0 CSIMPT 

C *** UALUE OF INPUT DATA ^UNITS* MUST ALWAYS BE 0.0 CSIMPT 

COMMON /UECTOR/ CPCOCG), TITLEC 12) , RT2C12), RH2C12), RT3C12), CSIMPT 

XRH3C12), PHIREF ( 12) , PSIREF ( 12) , ETAREFC 12) , PHIDESC 12, 9, 8) , CSIMPT 

XPSIDESC 12,9,8), ETADESC 12, 9, 8 ) , PHI(12,9,8), PSI(12,9,8), ETAC12,9 CSINPT 
X, 8) , DPHIAC 12) » DPSIAC 12) , DETAC12), MSTAGEC 12) , PCTSPDC9 ) , CSIMPT 

XBET2MC 12,9), BLEED(12,9), TTC13), PTC 13) , PRC 12) , TRC12), PR0C12), CSIMPT 
XTR0C12), ETA0C12), BET3MRC 12, 9) , UZ2M(12*9), UZ3M(12,9), AREA2C 12) CSIMPT 
X, AREA3C 12) , RM2C12), RM3C12), UT2C12), UT3C12), UM2C12), UM3C12) CSIMPT 
X, BATHMRC 12,9), DPSIS C 12,9), RSOLMC 12) , RK2MC12), CB2MC12), CB2MRC CSIMPT 

X12) , CB3MRC12) , RIMCMC 12) , RDFMC12), SK2MC12), SIMCMC 12) , BET3MC 12 CSIMPT 
X, 9) , PHIFIXC 12) , DPHIF ( 12) » CPREF C 12) , GF1REFC 12) , ETAIMPC 12) CSIMPT 

X, FLOCALC 12,9), ETARATC9) , DB2M(12,9), DB2MRC 12, 9) , DB3MC 12, 9) , DB3MR CSIMPT 
X(12»9)» B2MB3RC 12,9), SPEEDF , FLOWIM, U3DU2RC 12) , U2U3C 12) , DB3MRGC 12) CSIMPT 
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X. DE3MRN( 12, 9) * DB3MRP( 12, 8) , CPCM(G) , CPCS(G) 

*, RK3M( 12) , RDEUC 12) , RDEF( 12) , Gf1REPC12) 

*» PS ID1(12»2»8), PSID2 (12,2,8), PSID3 (12, 2,8), PSID4( 12,2, 8) 

*» PSID5( 12, 2,8),PSI1(12,2,8),PSI2(12,2,8),PSI3(12,2,8) 

*» PS 14(12,2,8), PS 15(12,2,8) 

*,PSIDiL(12,2,8), PSID2L( 12, 2,8), PSID3L( 12, 2, 8) 

*, PSID4L( 12,2,8), PSID5L( 12, 2,8),PSI1L(12,2,8) 

•*, PS 1 2L (12,2,8), PS 1 3L (12,2,8), PS 1 4L (12,2,8), PS 1 5L (12, 2,8) 

COMMON /SCALER/ RU, PI, G, AJ, RAD, RG, DCP, GJ, G2J, RPMRAD, NSTA 
X, NSPE, NPTS, PO, TO, DESRPil* DESFLO, UMITS 

X, CP, GAMMA, GM1, GF1, GF2, GF3, SPDPSI , SPDPHI , DRDEUG, DRDEUN, DRDEUP 
X, XAR, XMET , XSTM 
X, STAGEN, SPEEDN* CHAPTS, UTMOLE 
DIMENSION PHIINP(IO) 

READ(5, 1000 ) (TITLE(I), 1=1, 12) 

WRITE( G» 2000 ) (TITLE( I ) , 1=1, 12) 

1000 FORMAT (12AG) 

2000 FORMAT (1H1////20X, 30H ** STAGE STACKING PROGRAM ** ////20X, 
112AG////) 

READ (5,4444) STAGEM, SPEEDN, CHAPTS , PO, TO, DESRPM, DESFLO 
4444 FORMAT (7F10. 0) 

WRITE(G* 2010 ) STAGEN, SPEEDN, CHAPTS , PO, TO, DESRPM, DESFLO 
READ(5, 1008) UTMOLA, UTMOLM, UTMOLS, XAR, XMET, XSTM 
1008 FORMAT(GFIO.O) 

RGAIR=RIJ/LITMOLA 
RGMET =RU/UT MOLM 
RGSTM=RU/WTMOLS 

RG=RGAIR*XAR+RGMET*XMET+RGSTM*XSTM 

WTMOLE=RU/RG 

WRITE(6, 100G)WTMOLA, UTMOLM, WTMOLS, WTMOLE 
1006 FORMAT ( 1H-* 5X? £MU AIR=^, F7. 4, 3X, ?T1W METHANES, F7. 4, 3X, *MW STEAMS, 
*F7.4,3X,*MU MIXTURES, FF. 4) 

WRITE(G, 1004) XAR, XMET, XSTM 

1004 FORMAT ( 1H-, 5X« 2MASS FRACTION AIR=^, FG. 4, 5X, *MASS FRACTION METHANE= 
FG.4, 5X, ^MASS FRACTION STEAMS, FG. 4) 

DCP = RG/AJ 
GJ = G*AJ 
G2J = GJ*2.0 
RPMRAD = PI/3G0.0 
1010 FORMAT (8F10.0) 

2010 FORMAT (F2H STAGES SPEEDS POINTS PO IN TO IN DES 
* RPM DES FLOW// (FF1 0.3 )////) 

READ (5,1010) SPDPSI, SPDPHI, DRDEUG, DRDEUN, DRDEUP, UNITS 
WRITE (6,2011 ) SPDPSI, SPDPHI , DRDEUG, DRDEUN, DRDEUP, UNITS 

2011 FORMAT (GOH SPDPSI SPDPHI DRDEUG DRDEUN DRDEUP 
XUNITS//(GF10.1 )////) 

READ (5,1020) (CPCOC I) , 1=1,6) 

WRITEC 6, 2020 ) (CPCOC I ) , 1=1, G) 

1020 FORMAT (3E20.8) 

READC5, 1020 ) (CPCMCI), 1=1,6) 

WRITECG, 2021 ) (CPCMCI), 1=1,6) 

READ(5, 1020 ) (CPCS( I), 1=1,6) 

WRITE(6, 2022) (CPCSC I ) , 1=1,6) 

2020 FORMAT (0F2H CPCO(l) CPC0(2) CPC0(3) CPC0C4) C 

1PC0C5) CPCQ (6)//(6E12.5) //// ) 

2021 FORMAT (0F2H CPCMCI) CPCMC2) CPCMC3) CPCMC4) C 

1PCMC5) CPCM ( 6 ) // ( GE 1 2 o 5 ) //// ) 

2022 FORMAT (0F2H CPCSC1) CPCSC2) CPCSC 3) CPCSC4) C 

1PCSC5) CPCS CG)//(6E12.5) //// ) 

NSTA = STAGEN 
NSPE= SPEEDN 
NPTS = CHAPTS 

READ (5,1010) (RT2CI), 1=1, NSTA) 

READ (5,1010) CRH2CI), 1=1, NSTA) 

READ (5,1010) (RT3(I), 1=1, NSTA) 

READ (5,1010) (RH3(I), 1=1, NSTA) 

READ (5,1010) (BET2M(I,1), 1=1, NSTA) 

READ (5,1010) (CB2MCI), 1=1, NSTA) 

READ (5,1010) (CB2MR( I ) , 1=1, NSTA) 

READ (5,1010) (CB3MR( I ) , 1=1, NSTA) 
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READ (5,1010) (RK2M (I), 1=1, NSTA) 




CSINPT 

89 

READ(5» 1010) (RK3Md ) , 1=1, NSTA) 




CSINPT 

90 

READ (5,1010) (RSOLM(I), I=1,NSTA) 




CSIMPT 

91 

READ (5,1010) (SK2MC I ) , 1=1 , MSTA) 




CSINPT 

92 

READ (5,1010) (PR (I), 1=1, NSTA) 




CSINPT 

93 

READC5, 1010) (ETAINP( I ) , 1=1, N5TA) 




CSINPT 

94 

READ(5, 1010) (PHIIWP(I)»I=1» NSTA) 




CSINPT 

95 

WRITE( 6, 2030 ) ( N5T AGE ( I ) , RT2 ( I ) , RH2 ( I ) , RT3 ( I ) , RH3 ( I ) , BET2M (1,1), 

CSINPT 

9G 

XCB2M ( I ) , CB2MR (I), CB3MR ( I ) , RK2M (I), RSOLM (I ) , SK2M (I), 1=1, NSTA) 

CSINPT 

97 

2030 PORNAT (11 OH STAGE RT2 RH2 


RT3 

RH3 

CSINPT 

98 

X BET2M CB2M CB2MR CB3NR RK2M 


RSOLM, 10H 

CSINPT 

99 

XSK2M//(5X, I5,4F10.4,5F10.2,F10.4,F10.2)) 




CSINPT 

100 

WRITE (G, 2120 ) 




CSINPT 

101 

WRITE (5,2031) (NSTAGE(I), PR(I), ETAINP(I), 1= 

1 9 

NSTA) 


CSINPT 

102 

2031 FORMAT (30H STAGE PR ETAINP//(5X, 

15 

!,2F10.4)) 


CSINPT 

103 

READ(5* 1010) (PCTSPD(J), J=1,NSPE) 




CSINPT 

104 

PCTSPDC 1 )=1 . 0 




CSINPT 

105 

2120 FORMAT (J.H0////) 




CSINPT 

10G 

READ (5,1010) ( ETARAT ( J ) , J=1 » NSPE ) 




CSINPT 

107 

WRITE (B, 2120) 




CSINPT 

108 

WRITE (5,2121) (PCTSPD( J) , ETARAT ( J) , J=1,NSPE) 




CSINPT 

109 

2121 FORMAT (20H PCTSPD ETARAT// ( 2F10 . 4) ) 




CSINPT 

110 

DO 21 1=1, NSTA 




CSINPT 

111 

READ (5,1010) (BLEED(I, J), J=1,NSPE) 




CSINPT 

112 

21 CONTINUE 




CSINPT 

113 

WRITE (G, 2120 ) 




CSINPT 

114 

WRITE (G, 2041 ) (NSTAGEd ), 1 = 1, 12) , (PCTSPD(J), 

(BLEEDd, J) » 

1=1,12 

CSINPT 

115 

1), J=1,NSPE) 




CSINPT 

116 

2041 FORMAT (20X,27H BLEEDCSTAGE, PCT SPD) TABLE//40X 

9 

13H STAGE 

NUMBER/ 

CSINPT 

117 

18H PCT SPD, 12(15, 3X)//(13F8.3) ) 




CSINPT 

118 

DO 30 1=1, NSTA 




CSINPT 

119 

READ (5,1011) (PHIDESd, 1 » K) » K=1 » NPTS ) 




CSINPT 

120 

READ (5,1012) (PS IDES ( I, 1, K) »K=1,NPTS) 




CSINPT 

121 

READ (5,1013) (ETADESCI, 1, K) , K=1 , NPTS) 




CSINPT 

122 

30 CONTINUE 




CSINPT 

123 

DO 300 1=1, NSTA 




CSINPT 

124 

DO 301 K=i , NPTS 




CSINPT 

125 

PHIPHI=PHIDES( I , 1 , K )/PHI INPd ) 




CSINPT 

12G 

ISPD=IFIX(SPEEDF*100.0) 




CSINPT 

127 

DELPHI=DPHI (I , I SPD ) 




CSINPT 

128 

PHIPHI=PHIPHI+DELPHI 




CSINPT 

129 

PHIDESd, l,K)=PHIPHI*PHIINPd) 




CSINPT 

130 

301 CONTINUE 




CSINPT 

131 

300 CONTINUE 




CSINPT 

132 

1011 FORMAT (Sr 10 . 0 ) 




CSINPT 

133 

1012 FORMAT (8F1 0 . 0 ) 




CSINPT 

134 

1013 FORMAT (8F10. 0) 




CSINPT 

135 

DO 50 1=1, NSTA 




CSINPT 

13G 

WRITE (G, 2120 ) 




CSINPT 

137 

WRITE(G» 2050 ) NSTAGEd) ,( (PHIDESd, J, K) , PSIDESCI 



CSINPT 

138 

1, J,K), ETADESd, J,K), J=l, 1),K=1, NPTS) 




CSINPT 

139 

IF(NSPE.LT.4) GO TO 50 




CSINPT 

140 

WRITE (G, 2120 ) 




CSINPT 

141 

WRITE(G, 2050 ) NSTAGEd ),( (PHIDESd, J, K) , PSIDESCI 



CSINPT 

142 

1, J,K), ETADESd, J,K), J=4, G),K=1, NPTS) 




CSINPT 

143 

IFCNSPE.LT. 7) GO TO 50 




CSINPT 

144 

WRITE (6,2120) 




CSINPT 

145 

WRITECG, 2050 ) NSTAGEd ) , ( (PHIDESd , J, K) , PSIDESd 



CSINPT 

14G 

1, J, K) , ETADESCI, J, K) , J=7, 3) , K=l, NPTS) 




CSINPT 

147 

50 CONTINUE 




CSINPT 

148 

2050 FORMAT (20X,41H INPUT DESIGN CHARACTERISTICS FOR 

STAGE—, 13// 

CSINPT 

149 

13C30H PHIDES PSIDES ETADES)/(9F1 




CSINPT 

150 

20.4)) 




CSINPT 

151 

C *** CHANGE METRIC IMPUT INTO ENGLISH UNITS 




CSINPT 

152 

IF (UNITS. NE. 1.0) GO TO 53 




CSINPT 

153 

PO = PO/O.G8347G 




CSINPT 

154 

TO = TO*S. 0/5.0 




CSINPT 

155 

DESFLO = DESFLO/O. 453532 




CSINPT 

15S 

DO 51 1=1, NSTA 




CSINPT 

157 

RT2( I ) = RT2(I)/2.54 




CSINPT 

158 
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on 


RH2CI) = RH2(I)/2.54 CSINPT 

RT3CI) = RT3CI)/2.54 CSINPT 

RH3CI) = RH3CI)/2.54 CSINPT 

DO 52 J = 1 , NSPE CSINPT 

52 BLEEDCI, J) = BLEED Cl, J)/0. 453592 CSIhPT 

51 CONTINUE CSINPT 

53 RETURN CSINPT 

END CSINPT 

C ++H-++++++-i-+++ J r+++++++++++++-’r+++ + + H-+++++ +++++++++++ +++++++ +++%'-++++++++ CSPREF 

SUBROUTINE CSPREF CSPREF 

*** SUBROUTINE CSPREF CALCULATES PARAMETERS AT DESIGN SPEED AND FLOU CSPREF 

CONDITIONS CSPREF 

COMMON /UECTOR/ CPC0C6), TITLEC12), RT2C12), RH2C12), RT3C12), CSPREF 

XRH3C12), PHIREF C 12) , PS I REF ( 12) , ETAREF ( 12) , PHIDESC 12, 9,8), CSPREF 

XPSIDESC12, 9,8), ETADESC 12, 9, 8) , PHI(12,9,8), PSI(12,9,8), ETAC12,9 CSPREF 
X, 8) , DPHIAC 12) , DPSIAC12), DETAC12), NSTAGEC 12) , PCTSPDC9) , CSPREF 

XBET2MC 12,9)* BLEED(12,9), TTC13) » PTC 13) , PR C 12) » TRC12), PR0C12), CSPREF 
XTR0C12), ETA0C12), BET3MR C 12, 9) , UZ2MC12,9), UZ3MC12,9), AREA2C 12) CSPREF 
X, AREA3C 12) , RM2C12), RM3C12), UT2C12), UT3C12), UM2C12), UM3C12) CSPREF 
X* BAT2MRC 12*9) , DPSISC 12,9), RSOLMC 12) » RK2MC12), CB2MC12), CB2MRC CSPREF 

X12) , CB3MRC 12) » RINCMC 12) » RDFMC12), SK2MC12), SINCMC 12) , BET3MC 12 CSPREF 
X, 9) , PHIFIXC 12) , DPHIF C 12) , CPREF C 12) , GF1REFC 12) , ETAINPC 12) CSPREF 

X, FLOCALC 12,9), ETARATC9), DB2MC12,9), DB2MRC 12, 9 ) , DB3MC 12, 9 ) , DB3MR CSPREF 
XC 12, 9) , B2MB3RC 12,9), SPEEDF, FLGWIN, U3DU2RC 12) , U2U3C 12) , DB3MRGC12) CSPREF 
X, DB3MRNC 12, 9) , DB3MRPC 12, 8) , CPCMC6) , CPCSCG) CSPREF 

RK3MC 12) , RDEUC 12) , RDEFC 12) , GMREFC 12) CSPREF 

*,PSID1C12,2,8),PSID2C12,2,8),PSID3C12,2,8),PSID4C12,2,8) CSPREF 

*,PSID5C12,2,8),PSI1C12,2,8),PSI2C12,2,8),PSI3C12,2,8) CSPREF 

•*,PSI4C12»2»8)»PSI5C12*2>8) CSPREF 

*,PSID1LC12,2»8), PSID2LC 12,2,8), PSID3LC 12,2,8) CSPREF 

*, PSID4LC 12,2,8), PSID5LC 12,2,8), PS I1LC12, 2, 8) CSPREF 

*,PSI2LC12,2,8),PSI3LC12,2,8),PSI4LC12,2,8),PSI5LC12,2,8) CSPREF 

COMMON /SCALER/ RU, PI, G, AJ, RAD, RG, DCP, GJ, G2J, RPMRAD, NSTA CSPREF 
X, NSPE, NPTS, PO, TO, DESRPM, DESFLO, UNITS CSPREF 

X, CP, GAMMA, GM1 , GF1, GF2, GF3, SPDPSI, SPDPHI , DRDEUG, DRDEUN, DRDEUP CSPREF 

X, XAR, XMET , XSTM CSPREF 

X, STAGEN, SPEEDN, CHAPTS, WTMOLE CSPREF 

J= 1 CSPREF 

1= 1 CSPREF 

TTC I )= TO CSPREF 

PTC I )= PO CSPREF 

20 RHOT=PT ( I )/ CTTC I )*RG) CSPREF 

TS= TT(I) CSPREF 

RHQS= RHOT CSPREF 

UT2 C I )= RT2(I)*DESRPM*RPMRAD CSPREF 

UT3 C I )= RT3CI)*DESRPM*RPMRAD CSPREF 

C *** CALCULATIONS AT ROTOR INLET CSPREF 

30 UZ2MC I , J) = DESFLO/ (RH0S^AREA2( I)) CSPREF 

U= UZ2M C I , J ) /COS C BET2M ( I , J ) ) CSPREF 

CP=CPFM(TS) CSPREF 

RHOS= RHOT * C 1 . 0~U*U/ C G2 J*CP*TT Cl))) **GF 1 CSPREF 

TS= TTC I )*CRHOS/RHOT)**GMl CSPREF 

WCAL= RHOS*AREA2 Cl) *UZ2M C I , J ) CSPREF 

IFCCABSCWCAL - DESFLO )/UCAL) .GT. 0.005) GO TO 30 CSPREF 

CPREF Cl) = CP CSPREF 

GMREF C I ) =GAMMA CSPREF 

GF1REFCI) = GF1 CSPREF 

PHIREF C I )= UZ2MCI, J)/UT2CI) CSPREF 

DO 40 K=2» NPTS CSPREF 

IF C PHIREF C I )-PHIDESC I, J, K) ) 50, GO, 40 CSPREF 

40 CONTINUE CSPREF 

K= NPTS CSPREF 

50 PSIREF C I )= CPSIDESCI, J»K)-PSIDE5CI» J, K-l ) )*CPHIREF C I ) -PHIDESC I, J, CSPREF 

IK-1))/ C PHIDESC I , J, K) -PHIDESC I, J, K-i ) ) + PSIDESC I, J, K-l ) CSPREF 

ETAREF C I )= C ETADESC I, J, K) -ETADESC I , J, K-l ) )*CPHIREF C I ) -PHIDESC I, J, CSPREF 

IK-1))/ CPHIDESC I, J, K) -PHIDESC I, J, K-l ) ) + ETADESC I, J, K-l) CSPREF 

GO TO 70 CSPREF 

GO PSIREF C I )= PSIDESCI, J,K) CSPREF 

ETAREF C I )= ETADESC I, J, K) CSPREF 

70 CONTINUE CSPREF 
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59 
GO 
G1 
G2 
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C 


C 


IF (PSIREF(I).EQ.O.O) GO TO 71 

PRC I ) = (1.0 + PSIREF ( I )*UT3(I )*UT3( I )/(GJ*CP*TT( I ) ) )**GF2 
71 CONTINUE 

IFCETAREFCI) .EQ.O.O) ETAREF ( I ) = ETAINPCI) 

TR(I)= 1.0 + (PR( I )**GF3-1 . 0 ) /ETAREF ( I ) 

TT(I+1)= TT ( I )*TR( I ) 

IF (PSIREF (I). EQ.O.O) PSIREF(I) = GJ*CP*(TT ( 1+1 )~TT ( I ) )*ETAREF ( I ) 
X/UT3CI )**2 
PT ( 1+1 ) = PT(I)*PR(I) 

TRO( I ) = TTCI+1VTO 
PRO(I)= PT(I+l)/PO 
1= 1+1 

I F ( I .LE. NSTA) GO TO 20 
DO 80 1=1. NSTA 

UT2M= UZ2MCI, J)*TAN(BET2M(I, J) ) 

UT2MR= UM2CI) - UT2M 

BAT2MRC I» J)= ATAN2 CUT2MR, UZ2M ( I , J) ) 

TS= TTCI+l) 

RHOT= PT (I +!)/( TTCI+l )*RG) 

RHOS= RHOT 

*** CALCULATIONS AT ROTOR OUTLET 

81 UZ3MC I * J) = DESFLC/(RH0S*AREA3(I)) 

UT3M= (CP*(TT(I+1)-TT(I))*GJ + UM2CI )*UT2M)/UM3( I ) 

U= SORT ( UZ3M ( I » J ) *-*2 + UT3M**2) 

CP=CPFM(TS) 

RHOS = RHOT*(1.0-U*U/(G2J*CP*TT(I+1)))**GF1 
TS = TTCI+l )*(RHOS/RHOT)«*GMl 
WCAL= RH0S*AREA3(I)*UZ3M(I, J) 

IF ( (ABS(HCAL~DESFLO)/WCAL) .GT. 0.005) GO TO 81 
BET3M(I,J) = ATAN2CUT3M, UZ3MC I, J) ) 

SINCMCI) = BET3MCI, J)*RAD - SK2MCI) 

UT3MR= UM3CI) - UT3M 

BET3MR ( I , J ) = ATAN2 ( UT3MR, UZ3M ( I , J ) ) 

RINCMC I )= BAT2MRCI, J)*RAD - RK2MCI) 

U2MR= UZ2M ( I , J ) /COS ( BAT2MR ( I , J ) ) 

U3MR= UZ3M ( I , J ) /COS ( EET3MR ( I , J ) ) 

U3DU2RCI) = U3MR/U2MR 

IF ( I .EQ. NSTA) GO TO 82 

U2M=UZ2M ( I +1 , J ) /COS C BET2M ( 1+ 1 , J ) ) 

U3M=U 

U2U3(I)=U2M/U3M 

82 CONTINUE 

RDFNC I )= 1.0 - U3MR/U2MR + (RM3C I )*UT3M - RM2C I )*UT2M)/(RM3( I ) + 
XRM2( I ) )/RSOLN( I )/U2MR 
DB2MCI.J) = BET2MCI.J) 

DB2MRCI.J) = BAT2MRC I, J) 

DB3M(I.J) = BET3MC I , J) 

DB3MRC I » J) = BET3MRCI.J) 

B2MB3RC I , J) = BAT2NRC I , J) - BET3MRCI.J) 

80 CONTINUE 
RETURN 
END 

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
FUNCTION CPFMCTS) 

*** SUBROUTINE CPFMCTS) CALCULATES SPECIFIC HEAT FROM STATIC 
TEMPERATURE USING FIFTH DEGREE POLYNOMIAL 

COMMON /UECTOR/ CPCO(G), TITLEC 12) » RT2C12), RH2C12), RT3C12), 
XRH3( 12) , PHIREF C 12) , PSIREFC12), ETAREF ( 12) » PHIDESC 12, 9,8) » 
XPSIDESC 12,9,8), ETADESC 12, 9,8), PHI(12,9,8), PSK12.9.8). ETAC12.9 
X» 8) » DPHIA( 12) » DPSIAC12), DETAC12), NSTAGEC 12) , PCTSPDC9), 

XBET2MC 12,9), BLEEDC 12,9), TTC13) » PTC 13) , PRC 12) » TRC12), PR0C12), 
XTROC 12) » ETAOC 12) » BET3MRC 12, 9 ) , UZ2M(12,9), UZ3MC12.9). AREA2C 12) 
X, AREA3C 12) , RM2C12), RM3C12), UT2C12), UT3C12), UM2C12), UM3C12) 
X, BAT2MRC 12,9), DPSISC 12,9), RSOLMC 12) , RK2MC12), CB2MC12), CB2MRC 

X12), CB3MRC 12) , RINCMC 12) , RDFMC12), SK2MC12), SINCMC 12) , BET3MC 12 
X, 9) , PHIFIXC 12) , DPHIF ( 12) , CPREF ( 12 ) , GF1REFC 12) , ETAINPC 12) 

X, FLOCALC 12,9), ETARATC9), DB2MC12,9), DB2MRC 12, 9) , DB3MC 12, 9) , DB3MR 
XC 12, 9) , B2MB3RC 12, 9) , SPEEDF, FLOWIN, U3DU2RC 12) , U2U3C 12) , DB3MRGC 12) 

X, DB3MRNC 12,9) , EB3MRPC 12, 8), CPCMCG) , CPCSCB) 

*, RK3MC 12) , RDEUC 12) , RDEFC 12) , GMREFC12) 


CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

LSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSFREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CSPREF 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 

CPFM 


G3 

84 

85 
88 

87 

88 
89 

70 

71 

72 

73 

74 

75 
78 

77 

78 

79 

80 
81 
82 

83 

84 

85 
88 
87 
S3 

89 

90 
SI 

92 

93 

94 

95 
98 

97 

98 

99 
100 
101 
102 

103 

104 

105 
108 

107 

108 

109 

110 
111 
112 

113 

114 
1 
2 

3 

4 

5 

6 
7 
S 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
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c 

c 


c 


*» PSID1 ( 12, 2, S) » P3ID2C 12, 2»8)»PSID3(12*2»8)»PSID4(12,2*8) CPFM 19 

*,PSID5(12,2,8)»PSIia2,2,S),PSI2(i2,2,8),PSI3C12,2,8) CPPM 20 

*» PSI4C 12, 2, S) » PSI5( 12,2,8) CPFM 21 

*»PSID1L(12,2,S), PSID2LC 12,2,8), PSID3LC 12$. 29 8 ) CPFM 22 

*-»PSID4L(12,2,S),PSID5L(12,2,S),PSIlL(12,2,8) CPFM 23 

*,PSI2L(12,2,8),PSI3LC12, 2, 8) , PSI4LC 12, 2, 8) , PSI5LC 12, 2, 8) CPFM 24 

COMMON /SCALER/ RU, PI, G, AJ, RAD, RG, DCP, GJ, G2J* RPMRAD, NSTA CPFM 25 

X, MSPE, NPTS, PO, TO, BESRPM, DESFLG, UNITS CPFM 2G 

X, CP, GAMMA, GM1 , GF1, GF2» GF3, SPEPSI , SPDPHI , DRDEUG, DRDEUN, DRDEUP CPFM 27 

X, XAR, XMET, XSTM CPFM 28 

X, STAGEN, SPEEDN, CHARTS, UTMOLE CPFM 29 

TS=TS/lo8 CPFM 30 

CPA= ( CPCO ( 1 ) + c CPCO C 2 ) *TS ) + C CPCO C 3 ) -"-TS---TS ) + ( CPCO ( 4 ) «TS»TS*TS ) + ( CPCO CPFM 3 1 

*(5)«TS*TS*TS*TS))*2S7.05G CPFM 32 

CPS= C CPCS C 1 ) + ( CPCS ( 2 ) «TS ) + C CPCS ( 3 ) *TS*TS ) + ( CPCS ( 4 ) *TS*TS*TS ) + C CPCS CPFM 33 

* C 5 ) *TS*TS»TS*TS ) ) *461 . 495 CPFM 34 

CPM= ( CPCM (!)-:-( CPCM C 2 ) »TS ) + C CPCM ( 3 ) *TS*TS ) + C CPCM C 4 ) »TS*TS*TS ) + C CPCM CPFM 35 

*(5)»TS*TS*TS»TS))*518.251 CPFM 3G 

CFFM=( C CPA- XAR ) + ( CPS*-XSTM ) + ( CPM---XMET ) )/4177.8 CPFM 37 

TS=TS*!.8 CPFM 38 

GAMMA=CPFM/ ( CPFM-DCP ) CPFM 39 

GM1 = GAMMA -1.0 CPFM 40 

GF1 = 1.0/GM1 CPFM 41 

GF2 = GAMMA/GM1 CPFM 42 

GF3 = 1 « 0/GF2 CPFM 43 

RETURN CPFM 44 

END CPFM 45 

+++++-S"i-+*i*+++++-t*++++ +++++++++++++ T+++++++++++++++++++++++++++ +++++++++ CSETA 1 

SUBROUTINE CSETA CSETA 2 

*** SUBROUTINE CSETA GENERATES ADIABATIC EFFICIENCY UERSUS FLOW CSETA 3 

□DEFICIENT CSETA 4 

COMMON /UECTOR/ CPCO(G), TITLE! 12) , RT2C12), RH2C12), RT3C12), CSETA 5 

XRH3C12), PH I REF ( 12) , PSIREF ( 12) , ETAREFC 12) » PHIDES ( 12, 9, 8 ) , CSETA 6 

XPSIDES! 12, 9, 8) , ETADESC 12, 9, 8) , PHI ( 12, 9, 8) , PSI ( 12, 9, 8 ) , ETA(12,9 CSETA 7 

X , 8 ) , DPHIAC12), DPSIAC12), DETAC12), NSTAGEC 12) , PCTSPDO), CSETA 8 

XBET2MC 12, 9) , BLEED(12,9), TT( 13) , PTC 13) , PRC 12 ) , TRC12), PR0C12), CSETA 9 

XTR0C12), ETA0C12), EET3MRC 12, 9) , UZ2M(12,9), UZ3MC12,9), AREA2C 12) CSETA 10 

X, AREA3C 12) ? RM2C12), RM3C12), UT2C12), UT3C12), UM2C12), UM3C12) CSETA 11 

X, EAT2MRC 12, 9 ) , DPSI5C 12,9), RSOLMC 12) , RK2NC12), CB2MC12), CB2MRC CSETA 12 

X12) , CB3MRC 12) , RIMCMC12), RDFMC 12) , SK2MC12), SINCMC 12) , BET3MC 12 CSETA 13 

X, 9) » PHIFIXC 12) , DPHIF C 12) , CFREF C 12 ) , GF1REFC 12) , ETAINPC 12) CSETA 14 

X, FLOCALC 12, 9) , ETARATC9), DB2MC12,9), DB2MRC 12, 9) , DB3MC 12, 9) , DB3MR CSETA 15 

XC 12, 9) , B£i1B3R( 12, 9) , SPEEDF, FLOWIN, U3DU2RC 12) , U2U3C 12) , DB3MRGC 12) PSETA IS 

X, DB3MRNC 12,9) , DB3MRPC 12, S) , CFCMCS) , CPCSCG) L3ETA 17 

* 9 RK3MC 12) , RDEUC 12 ) , RDEF ( 12) , GMREF (12) ■ CSETA 18 

*-,PSIDl(12,2,3),PSID2(i2,2,S),P5ID3(12,2,8),PSID4(12,2,8) CSETA 19 

*, PS ID5 (12, 2,8), PS 11(12, 2,8), FS 12(12, 2, 8), PS 13(12,2, 8) CSETA 20 

*» PS 14 (12,2,8), PS 15(12, 2, 8) CSETA 21 

*-,PSIDiL(12>2,8)» PSID2LC 12, 2, 8) , PSID3LC 12,2,8) CSETA 22 

*» PSID4LC 12,2,8), PSID5LC 12,2,8),PSI1L(12,2,8) CSETA 23 

*, PSI2LC 12, 2, 8) , PSI3LC 12, 2, 8) , PSI4LC 12, 2, 8) ? PSI5LC 12, 2, 8) CSETA 24 

COMMON /SCALER/ RU, PI, G, AJ, RAD, RG, DCP, GJ, G2J, RPMRAD, NSTA CSETA 25 

X, NSPE, NPTS, PO, TO, DESRPM, DESFLO, UNITS CSETA 2G 

X, CP, GAMMA, GM1,GF1,GFB,GF3,SPDPSI, SPDPHI, DRDEUG, DRDEUN, DRDEUP CSETA 27 

X, XAR, XMET, XSTM CSETA 28 

X, STAGEN, SPEEDN, CHAPTS, WTMOLE CSETA 23 

j = i CSETA 30 

*** TWO PARABOLAS ARE USED FROM STALL AND CHOKE TO DESIGN CONDITIONS CSETA 31 

DO 10 1=1, NSTA CSETA 32 

RAM=G . 7G CSETA 33 

P5MPRS= (PHIDESd, J, 1) - PHIREFC I) )**2 CSETA 34 

PCMPRS = (PHIDESd, J,NPTS) - PHIREFC I ) )**2 CSETA 35 

AS=-Oa OS^ETAREF ( I )/RSMPRS CSETA 3G 

AC=-0.20*ETAREF (D/PCMPRS CSETA 37 

BS= -2 . 0*PHIREF ( I ) - AS CSETA 38 

BC= -2. 0*-PHIREF ( I )*-AC CSETA 39 

CS= ETAREFC I ) + AS*PHIREF( I )**2 CSETA 40 

CC= ETAREFC I ) + AC*PHIREF( I )**2 CSETA 41 

DO 20 K=1 » NPTS CSETA 42 

IF (PHIDESC I, J, K) - PHIREF ( I ) ) 11,12,13 CSETA 43 
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11 ETADESC I » J, K) = C AS*PHIDES( I, J, K) + BS)*PHIDES(I, J,K) + CS CSETA 

GO TO 20 CSETA 

12 ETADESCI, J,K)= ETAREFCI) CSETA 

GO TO 20 CSETA 

13 ETADESC I , J, !<) = ( AC*PHIDES( I. J, K)+EC)*PHIDESC I , J, K)+CC+C C ( (PHIDESC I, CSETA 

X J , K ) -PH IREFC I ) )**3. 0 )/( (PHIDESC I » J. NPTS ) -PH IREF C I ) )**3. 0 ) )*.20*RAt1 CSETA 
X^ETAREF CD) CSETA 

20 CONTINUE CSETA 

10 CONTINUE CSETA 

RETURN CSETA 

END CSETA 

C +++■:*++■!■+■!■+ ++++++++++++++- !■+++++++++++++++++++++-!•++++++++++++++++++++++ CSPSI 

SUBROUTINE CSPSI CXU1N, LORS) CSPSI 

C *»« SUBROUTINE CSPSI CALCULATES PRESSURE COEFICIENTS FOR INPUT FLOW CSPSI 

C COEFICIENTS CSPSI 

COMMON / UECTGR/ CPCOC6), TITLEC 12) » RT2C12), RH2C12), RT3C12), CSPSI 

XRH3C12). PHI REF C 12) j PSIREF C 12 ) » ETAREFC12), PHIDESC 12, 3, 8) , CSPSI 

XPSIDESC 12,3.8), ETADESC 12, 3, 8) , PHIQ9.9.8). PSI(12,9,8), ETAC12.3 CSPSI 
X ? 8 ) j DPHIAC 12) » BPSIAC12). DETAC12), NSTAGEC 12) » PCTSPDC9) * CSPSI 

XBET2NC 12, 9) , BLEEDC12.9). TTC 13) » PTC 13) » PRC 12) > TRC 12) , PR0C12), CSPSI 
XTR0C12), ETA0C12), BET3MRC 12. 9) » UZ2M(12,3), UZ3MC12,9), AREA2C 12) CSPSI 
X, AREAS ( 12) , RM2C12), RM3C12), UT2C12), UT3C12), UM2C12), UN3C12) CSPSI 
X. EAT2NRC 12.9) » DPSISC 12.9). RSOLMC 12) , RK2IK12), CB2NC 12) » CB2MRC CSPSI 

X 1 2 ) 5 CB3MRC 12) , RINCNC 12) » RDFMC 12) » SK2I1C12), SINCMC 12) » BET3MC 12 CSPSI 
X.9), PHIFIXC 12) » DPHIF C 12) » CPREF C 12) . GF1REFC 12) , ETAINPC 12) CSPSI 

X, FLOCALC 12. S) , ETARATC3) » DB2MC12.9). DB2MRC 12,9), DB3MC 12. 9) » DB3MR CSPSI 
XC 12. 3) » D2NBSR (12,9), SPEEDF » FLOW IN, U3DU2R ( 12 ) » U2U3C 12 ) » DB3NRGC 12 ) CSPSI 

X. DB3MRNC 12,3), DE3MRPC 12, 8) , CPCil(G) , CPCSCG) CSPSI 

*, RK3MC 12) , RDEUC 12) , RDEFC 12) , GMREFC 12) CSPSI 

*»PSIDlC12.2.8)tPSID2C12.2.8)tPSID3C12.2.8).PSID4C12.2»8) CSPSI 

*,PSID5(12,2,S),PSI1(12,2,8),PSI2(12,2,8),PSI3(12,2,8) CSPSI 

*,PSI4( 12,2,8), PSI5C12.2.8) CSPSI 

PSIDILC 12, 2, 8) .FSID2LC 12, 2, 8) , PSI D3L C 12,2,8) CSPSI 

*, PSID4LC 12.2,8), PSID5LC 12,2,8),PSI1LC12,2,8) CSPSI 

*,PSI2L(12,2,S),PSI3L(12,2,S),FSI4L(12,2,8),PSI5L(12,2,8) CSPSI 

COMMON /SCALER/ RU, PI. G, AJ. RAD, RG, DCP, GJ, G2J, RPMRAD, NSTA CSPSI 
X, NSPE , NPTS, PO, TO, DESRPM, DESFLO, UNITS CSPSI 

X. CP. GANNA, GN1 . GF1 , GF2, GF3. SPDPSI , SPDPHI , DRDEUG. DRDEUN, DRDEUP CSPSI 

X. XAR, XMET , XSTM CSPSI 

X, STAGEN, SPEEDN, CHAPTS, WTNOLE CSPSI 

j=l CSPSI 

DO 100 K=i , NPTS CSPSI 

1=1 CSPSI 

TT ( I ) = TO CSPSI 

PTC I) = PO CSPSI 

UZ2=UZ2MCI, J) -“PHIDESC I . J» K)/PHIREF( I) CSPSI 

UT2=UZ2»TAN(DB2M( I, 1 ) ) CSPSI 

UT2R=UM2(I)-UT2 CSPSI 

B2MR=ATAM2 CUTER. UZ2 ) CSPSI 

B2N=DB8i'K 1,1) CSPSI 

10 UZ3MCI.J) = UZ2MC I , J) •"■PHIDESC I , J, IO/PHIREF C I ) CSPSI 

U2NR = UZ3MCI. J)/C0SCB2MR) CSPSI 

BET3MRCI.J) = DB3MRC I. 1 ) CSPSI 

UT2N = UZ3MCI, J)«TANCE2M) CSPSI 

U23 = UT2M»*2 * UZ3M(I.J)»*2 CSPSI 

RI-iOT = PT(I)/CTT(I) - RG ) CSPSI 

RKDS = RHDT»C1.0 - U2S/CG2J-"CPREFC I )»TT CD) )**GF1REF(I ) CSPSI 

DESFLC = RHGS*AREA2(I)*UZ3MCI, J) CSPSI 

TS = TTC I) CSPSI 

ID = 0 CSPSI 

11 UT3M = UM3CI) - UZ3MC I, J)-"TANCBET3MRC I, J) ) CSPSI 

rp = rppM(jq) CSPSI 

ET = CUM3CI)*UT3M - UM2C I )*UT2M)/(GJ*CP) CSPSI 

TRA = CDT + TT C I ) )/TT Cl) CSPSI 

PTA3 = PT C I ) ■-• ( 1 o 0 v ETADESC I? J»IO*(TRA - 1.0))**GF2 CSPSI 

TTA3 = DT TTC I) CSPSI 

RKOT = PTA3/CTTA3-RG) CSPSI 

U3S = UT3M*»2 + UZ3i1(I»J)««2 CSPSI 

U3M=SQRT C U3S ) CSPSI 

RnOS = RHOT- C 1 . 0 - U3S/ C G2J»CP*TTA3 ) )**GF1 CSPSI 


44 
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46 
4? 

48 

49 
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18 
13 
20 
21 
22 

23 
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nn 


TS = TT A3* C RHOS/RHOT ) **GM1 

CSPSI 

60 

WCAL = RHOS*ARE A3 (I) *UZ3M ( I » J ) 

CSPSI 

61 

IF (TRA.GE. 1.0) GO TO 12 

CSPSI 

G2 

DT = 0.0 

CSPSI 

G3 

GO TO 13 

CSPSI 

G4 

12 ID = ID + 1 

CSPSI 

65 

UZ3MCI, J) = DESFLC/(RH0S*AREA3(I)) 

CSPSI 

GG 

U3MR = UZ3MCI, JVC0S(BET3MR(I, J)) 

CSPSI 

G? 

*** OPTION TO ALTER ROTOR DEUIATION ANGLE FOR OFF DESIGN FLOW 

CSPSI 

G8 

COEFICIENT 

CSPSI 

69 

IFCLORS.EQ. 1) CALL CSDEU ( SPEEDF » XWN » U3f1R, U2MR, U3DU2R ( I ) , I , FK ) 

CSPSI 

70 

IF(L0RS.EQ.2) CALL CSDEULCSPEEDF, XWN, U3MR, U2MR, U3DU2RC I ) , I,FK) 

CSPSI 

71 

IF (DRDEUP.EQ. 1.0) 

CSPSI 

72 

XDB3MRP ( I, K)=-( FK/R AD ) * ( U3MR/U2MR-U3DU2R ( I ) ) 

CSPSI 

73 

BET3MRC I, J) = DB3MRC 1,1) + DB3MRPC I , K) 

CSPSI 

74 

IF ((ABS(WCAL“DESFLC)/WCAL).GT. 0.005) GO TO 11 

CSPSI 

75 

DUN Y=ETADES ( I , J , K ) 

CSPSI 

7G 

IFCLORS.EQ. 1) 

CSPSI 

77 

$CALL CSETA1 ( I , J, K, XWN, PHIDESC I, J, K ) , PHIREF ( I ) , DUMY) 

CSPSI 

78 

IFCLORS.EQ. 2) CALL CSETALCI, J, K, XWN, PHIREFC I ) , PHIDESC I, J,K), 

CSPSI 

79 

$DUNY» ETAREFC I ) ) 

CSPSI 

80 

13 PSIDESCI, J,K) = GJ*CP*DT*DUMY/"UT3( I )**2 

CSPSI 

81 

DU3DU2 = U3DU2RCI ) 

CSPSI 

82 

FU3DU2 = U3MR/U2MR 

CSPSI 

83 

IFCI.EQ.NSTA) GO TO 100 

CSPSI 

84 

B2M=DB2MCI + 1, 1) 

CSPSI 

85 

303 UZ2=UZ3MC I , J) 

CSPSI 

8G 

301 U2M=UZ2/C0S(B2M) 

CSPSI 

87 

U2NS=U2N**2 

CSPSI 

88 

RH0T=PTA3/ C TTA3*RG ) 

CSPSI 

89 

RHOS=RHOT*C 1 . 0-U2MS/(G2J*CPREF< 1+1 )*TTA3) )**GF1REFC 1+1 ) 

CSPSI 

90 

UZ2C=DESFLC/CRH0S*AREA2C 1+1 ) ) 

CSPSI 

91 

IFCCABSCUZ2-UZ2C)/UZ2).LT. 0.005) GO TO 300 

CSPSI 

92 

UZ2=CUZ2+UZ2CV2.0 

CSPSI 

93 

GO TO 301 

CSPSI 

94 

300 IFCLORS.EQ. 1) CALL CSDEUSCXWN, U2M, U3M, U2U3C I ) , I, FK) 

CSPSI 

95 

IFCLORS.EQ. 2) CALL CDEUSLCXWN, U2N, U3N, U2U3C I ) , I , FK) 

CSPSI 

96 

DEUIS=-CFK/RAD)*CU2M/U3M-U2U3C I ) ) 

CSPSI 

97 

B2MC=DB2MCI+1, D+DEUIS 

CSPSI 

98 

IFCCABSCB2M-B2MC)/B2N).LT. 0.005) GO TO 302 

CSPSI 

99 

B2M=CB2M+E2MC)/2.0 

CSPSI 

100 

GO TO 303 

CSPSI 

101 

302 UT2R=UN2CI+1)-UZ2*TANCB2N) 

CSPSI 

102 

B2MR=AT AN2 C UT2R , UZ2M) 

CSPSI 

103 

1=1 + 1 

CSPSI 

104 

IF C I .LE.NSTA) GO TO 10 

CSPSI 

105 

100 CONTINUE 

CSPSI 

10G 

RETURN 

CSPSI 

107 

END 

CSPSI 

108 

SUBROUTINE CSDEUSCXW, U2M, U3M, U2U3S, I,FK) 

CSDEUS 

1 

T1=U2M/U3M-U2U3S 

CSDEUS 

2 

FK=2G. 0+0. 12/T1 

CSDEUS 

3 

RETURN 

CSDEUS 

4 

END 

CSDEUS 

5 

SUBROUTINE CDEUSL C XW, U2M, U3M, U2U3S, I , FK ) 

CDEUSL 

1 

T1=U2M/U3N-U2U3S 

CDEUSL 

2 

FK=2G. 0+0. 12/T1 

CDEUSL 

3 

RETURN 

CDEUSL 

4 

END 

CDEUSL 

5 

SUBROUTINE CSDEUCSPEEDF, XW, U3MR, U2MR, U3DU2, I,FK) 

CSDEU 

1 

T1=U3MR/U2NR-U3DU2 

CSDEU 

2 

IFCI.EQ.l. AND.T1.LT. 0.0) GO TO 200 

CSDEU 

3 

I F C I . EQ . 2 . AND . T 1 . LT . 0 . 0 ) GO TO 201 

CSDEU 

4 

IFCI.GE. 3. AND.T1.LT. 0.0) GO TO 202 

CSDEU 

5 

IF C T1.GT.0.0) GO TO 203 

CSDEU 

G 

200 Al=-3.15 

CSDEU 

7 

Bl=-0. 21 

CSDEU 

8 

AFO=30.0 

CSDEU 

9 

IFCT1.LT. -0.05) Tl=-0.05 

CSDEU 

10 

GO TO 204 

CSDEU 

11 
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201 

Al=-3.70 

CSDEU 

12 


Bl=-0. 11 

CSDEU 

13 


AF0=25. 0 

CSDEU 

14 


IFCTl.LT .-0.05) Tl=-0. 05 

CSDEU 

15 


GO TO 204 

CSDEU 

16 

202 

A 1 =-3.73 

CSDEU 

17 


Bl=-0.13 

CSDEU 

18 


AFO=30. 0 

CSDEU 

19 


IFCTl.LT. -0.05) Ti=-0. 05 

CSDEU 

20 


GO TO 204 

CSDEU 

21 

203 

Al=1.80 

CSDEU 

22 


B1=0 . 23 

CSDEU 

23 


AFQ=-10.0 

CSDEU 

24 


IFCT1.GT.0.05) T1=0. 05 

CSDEU 

25 

204 

T2=A1*XW+B1 

CSDEU 

26 


FK=T2/T1+AF0 

CSDEU 

27 


DK=0 . 0 

CSDEU 

28 


IF CT1.GT.0.0) GO TO 205 

CSDEU 

29 


ISPD=IFIX(SPEEDF*100.0) 

CSDEU 

30 


IF C ISPD.EQ.70.OR. ISPD.EQ.G9) DK=DELK70(I,T1) 

CSDEU 

31 


IF ( ISPD.EO. 80 . OR. ISPD. EQ. 73) DK=DELK80 C I , T1 ) 

CSDEU 

32 


IF CISPD.EQ. 90. OR. ISPD.EO. 89) BK=0.0 

CSDEU 

33 


IF (ISPD.EO. 100. OR. ISPD.EO. 95) DK=DELK10(I»T1 ) 

CSDEU 

34 

205 

FK = FK-DK 

CSDEU 

35 


RETURN 

CSDEU 

36 


END 

CSDEU 

37 


SUBROUTINE CSDEULCSPEEDF » XU* U3MR,U2NR, U3DU2» I* FK) 

CSDEUL 

1 


Tl=U3fiR/U2MR-U3DU2 

CSDEUL 

2 


IFCI.EQ. 1. AND.T1.LT. 0.0) GO TO 200 

CSDEUL 

3 


I F ( I . EQ . 2 . AND .Tl.LT.O.O) GO TO 201 

CSDEUL 

4 


IFCI.GE. 3. AND.T1.LT. 0.0) GO TO 202 

CSDEUL 

5 


IF C T1.GT.0.0) GO TO 203 

CSDEUL 

6 

200 

Al=-3. 15 

CSDEUL 

7 


Bl=-0.21 

CSDEUL 

8 


AFO=30 . 0 

CSDEUL 

9 


IFCTl.LT. -0.05) Tl=-0.05 

CSDEUL 

10 


GO TO 204 

CSDEUL 

11 

201 

Al=-3. 70 

CSDEUL 

12 


Bl=-0 . 11 

CSDEUL 

13 


AF0=25. 0 

CSDEUL 

14 


IFCTl.LT. -0.05) Tl=-0. 05 

CSDEUL 

15 


GO TO 204 

CSDEUL 

16 

202 

Al=-3. 73 

CSDEUL 

17 


Bl=-0. 13 

CSDEUL 

18 


AFO=30 . 0 

CSDEUL 

19 


IFCTl.LT. -0.05) Tl=-0 . 05 

CSDEUL 

20 


GO TO 204 

CSDEUL 

21 

203 

Al=l . 80 

CSDEUL 

22 


B1=0 . 23 

CSDEUL 

23 


AFO=-10 . 0 

CSDEUL 

24 


IFCT1.GT.0.05) T1=0. 05 

CSDEUL 

25 

204 

T2=A1*XW+B1 

CSDEUL 

26 


FK=T2/T1+AF0 

CSDEUL 

27 


DK = 0.0 

CSDEUL 

28 


IF (Tl.GT.O.O) GO TO 205 

CSDEUL 

29 


ISPD = IFIX(SPEEDF*100 . 0) 

CSDEUL 

30 


IF CISPD.EQ. 70. OR. ISPD.EO. 69) DK = DELK70CI,T1) 

CSDEUL 

31 


IF (ISPD. EQ. 80. OR. ISPD. EQ. 79) DK = DELK80CI,T1) 

CSDEUL 

32 


IF (ISPD. EQ. 90. OR. ISPD. EQ. 89) DK = 0.0 

CSDEUL 

33 


IF CISPD.EQ. 100. OR. ISPD. EQ. 99) DK = DELK10(I,T1) 

CSDEUL 

34 

205 

FK = FK - DK 

CSDEUL 

35 


RETURN 

CSDEUL 

36 


END 

CSDEUL 

37 


FUNCTION DELK70 ( I» T1 ) 

DELK70 

1 


IF (I.EQ.l) GO TO 1 

DELK70 

2 


IF (I.EQ.2) GO TO 2 

DELK70 

3 


IF CI.EQ.3) GO TO 3 

DELK70 

4 


IF (I.EQ.4) GO TO 4 

DELK70 

5 


IF CI.E0.5) GO TO 5 

DELK70 

6 


IF (I.EQ.G) GO TO 6 

DELK70 

7 
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1 A = -140625.0 

DELK70 

8 


B = -262500.0 

DELK70 

9 


C = -12219.0 

DELK70 

10 


D = 311.0 

DELK70 

11 


E = 39.0 

DELK70 

12 


GD ID 100 

DELK70 

13 


2 A = -312501.0 

DELK70 

14 


B = -35417.0 

DELK70 

15 


C = 1875.0 

BELK70 

16 


D = 399.0 

DELK70 

17 


E = 24.0 

DELK70 

18 


GD TO 100 

DELK70 

19 


3 A = -2369792.0 

DELK70 

20 


B = -439583.0 

DELK70 

21 


C = -21568.0 

DELK70 

22 


D = 199.0 

DELK70 

23 


E = 36.0 

DELK70 

24 


GO TO 100 

DELK70 

25 


4 A =-1953125.0 

DELK70 

26 


B = -377083.0 

DELK70 

27 


C = -20109.0 

DELK70 

28 


D = 93.0 

DELK70 

29 


E = 33.0 

DELK70 

30 


GO TO 100 

DELK70 

31 


5 A = -1953125.0 

DELK70 

32 


B = -377083.0 

DELK70 

33 


C = -20109.0 

DELK70 

34 


D = 93.0 

DELK70 

35 


E = 33.0 

DELK70 

36 


GO TO 100 

DELK70 

37 


G A = -1953125.0 

DELK70 

38 


B = -377083.0 

DELK70 

39 


C = -20109.0 

DELK70 

40 


D = 93.0 

DELK70 

41 


E = 33.0 

DELK70 

42 


100 DELK70=A*T1**4+B*T1**3+C*T1**2+D*T1+E 

DELK70 

43 


RETURN 

DELK70 

44 


END 

DELK7Q 

45 


FUNCTION DELK80CI.T1) 

DELK80 

1 


IF (I.EQ.l) GO TO 1 

DELK80. 

2 


IF CI.EQ.2) GO TO 2 

DELK80 

3 


IF CI.EQ.3) GO TO 3 

DELK80 

4 


IF CI.EQ.4) GO TO 4 

DELK80 

5 


IF CI.EQ.5) GO TO 5 

DELK80 

6 


IF (I.EQ.6) GO TO 6 

DELK80 

7 


1 A = -1093750.0 

DELK80 

8 


B = -227083.0 

DELK80 

9 


C = -14094.0 

DELK80 

10 


D = -87.0 

DELK80 

11 


E = 19.0 

DELK80 

12 


GO TO 100 

DELK80 

13 


2 A = -546875.0 

DELK80 

14 


B = -95833.0 

DELK80 

15 


C = -3703.0 

DELK80 

16 


D = 150.0 

EELK80 

17 


E = 15.0 

DELK80 

18 


GO TO 100 

DELK80 

19 


3 A = -859375.0 

DELK80 

20 


B = -152083.0 

DELK80 

21 


C = -6328.0 

DELK80 

22 


D = 200.0 

DELK80 

23 


E = 19.0 

DELK80 

24 


GO TO 100 

DELK80 

25 


4 A = -520833.0 

DELK80 

26 


B = -83333.0 

DELK80 

27 


C = -1229.0 

DELK80 

28 


D = 393.0 

DELK80 

29 


E = 23.0 

DELK80 

30 


GO TO 100 

DELK80 

31 


5 A = 572917.0 

DELK80 

32 
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B = 183333.0 

DELK80 

33 

C = 22052.0 

DELK80 

34 

D = 1217.0 

DELK80 

35 

E = 33.0 

DELK80 

3G 

GO TO 100 

DELK80 

37 

G A = 1953124.0 

DELK80 

38 

B= 5041G7.0 

DELK80 

39 

C = 47047.0 

DELK80 

40 

D = 1920.0 

DELK80 

41 

E = 38.0 

DELK80 

42 


DELK80 

43 

100 DELK80=A*T1**4+B*T1**3+C*T1**2+D*T1+E 

DELK80 

44 

RETURN 

DELK80 

45 

END 

DELKSO 

46 

FUNCTION DELK10 C I » T1 ) 

DELK10 

1 

IF (I.EO.l) GO TO 1 

DELK10 

2 

IF (I.E0.2) GO TO 2 

DELK10 

3 

IF (I.E0.3) GO TO 3 

DELK10 

4 

IF (I.EQ.4) GO TO 4 

DELK10 

5 

IF CI.EQ.5) GO TO 5 

DELK10 

G 

IF (I.EQ.G) GO TO G 

DELK10 

7 

1 fi= -755208.0 

DELK10 

8 

B = -189533.0 

DELK10 

9 

C = -19932.0 

DELK10 

10 

D = -1161.0 

DELK10 

11 

E = -38.0 

DELK10 

12 

GO TO 100 

DELK10 

13 

2 A = - 234375.0 

DELK10 

14 

B = -GGGG7.0 

DELK10 

15 

C = -7891.0 

DELK10 

16 

D = -528.0 

DELK10 

17 

E = -20.0 

DELK10 

18 

GO TO 100 

DELK10 

19 

3 A = -1927083.0 

DELK1G 

£0 

B = - 487500.0 

DELK10 

21 

C = -44948.0 

DELK10 

£2 

D = -1921.0 

DELK10 

23 

E = -42.0 

D ELK 10 

24 

GO TO 100 

DELK10 

25 

4 A = -1510417.0 

DELK10 

2G 

B = -350000.0 

DELK10 

27 

C = -30865.0 

DELK10 

28 

D = -1390.0 

DELK10 

£9 

E = — 3S.0 

DELK10 

30 

GO TO 100 

DELK10 

31 

5 A = -4479167. 0 

DECK 10 

32 

B = -1050000.0 

DELK10 

33 

C = — S93S6 . 0 

DELK10 

34 

D = -3420.0 

DELK10 

35 

E = -GO . 0 

DELK10 

36 

GO TO 100 

DELK10 

37 

G A = -1562500.0 

DELK10 

38 

B = -393750.0 

DELK10 

33 

C = -38375.0 

DELK10 

40 

D = -1826.0 

DELK10 

41 

E = -42.0 

DELK10 

42 


DELK10 

43 

100 DELK10=A-*T1 **4+B*T 1 **3+C*T 1 **2+D*T 1 +E 

DELK10 

44 

RETURN 

DELK10 

45 

END 

D ELK 10 

46 

FUNCTION DPHI ( I* ISPD) 

DPHI 

1 

IF (I.EO.l) GO TO 1 

DPHI 

2 

IF ( I.E0.2) GO TO 2 

DPHI 

3 

IF (I.GE.3) GO TO 3 

DPHI 

4 

1 IF (ISPD. EO. 70. OR. ISPD. EQ. 69) DPHI=-0.0357 

DPHI 

5 

IF (ISPD. EQ. 80. OR. ISPD. EO. 79) DPHI=-0.0357 

DPHI 

G 

IF ( ISPD. EQ . 90 . OR. ISPD. EQ. 89 ) DPHI=0.0 

DPHI 

7 

IF ( ISPD.EQ. 100. OR. ISPD.EQ.S9) DPMI=0.0357 

DPHI 

8 

GO TO 100 

DPMI 

9 

2 IF (ISPD.EQ. 70. OR. ISPD.EQ. 69) DPHI = -0.028S 

DPHI 

10 
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IF (ISPD.EQ.80.0R. ISPD.EQ.79) DPHI = -0.028G 
IF ( ISPD.EQ.90.QR. ISPD.EQ.89) DPHI = 0.0 
IF (ISPD.EQ.100.0R. ISPD.EQ.99) DPHI = 0.0H8G 
GO TO 100 

3 IF (ISPD.EQ.70.QR. ISPD.EQ.69) DPHI = -0.0333 
IF ( ISPD.EQ.80 . OR. ISPD.E0.73) DPHI = -0.0333 
IF (ISPD.EQ.aO.OR.ISPD.EQ.89) DPHI = 0.0 

IF (ISPD.EQ. 100. OR. ISPD.EQ.99) DPHI = 0.0333 
100 RETURN 
END 

SUBROUTINE CSETAl ( I , J, K, XW, PHID, PHIR, ETAD) 

IFCI.EQ. 1. AND.XW.LT. 0.04) Y=0 . 4575*XW 

IFC I . EQ. 1 .AND. XU. GE. 0. 04) Y=0. 12*XW+0.0135 

T3=PHID-PHIR 

IF(I.EQ.l) GO TO 304 

IFCI.EQ. 2. AND.T3.LT. -0.08) GO TO 300 

IF( I . EQ. 2. AND. T3.GE. -0 .08) GO TO 301 

IFCI.GE.3) GO TO 302 

300 A=0 . 0 
B=0.50*XW 

IFC XU . GT. 0 . 04 ) A=-0 . 982*XU+0 . 0393 
IFCXU.GT.0.04) B=0. 02 
GO TO 303 

301 A=3.125*XU 
B=0.7375*XW 

IF (XW.GT.O. 04) A=0. 125 
IFCXW. GT. 0.04) B=0. 09*XW+0. 026 
GO TO 303 

302 A=5.0*XU 
B=0.625*XW 

IFCXW. GT. 0 . 04) A=0 . 80*XW+0 . 168 
I F ( XU . GT . 0 . 04 ) B=0. 1 455*XU+0 .0192 
IFCT3.LT. -0.004) T3=-0 . 04 

303 Y=A*T3+B 

304 ETAD=ETAD-Y 
RETURN 

END 

SUBROUTINE CSETAL ( I , J, K, XU, PHID, PHIR, ETAD. ETADD ) 

T=PHIR/PHID 

IFCI.EQ.1.0R.I.EQ.2) GO TO 10 
IFCI.EQ. 3) GO TO 20 
GO TO 30 

10 IFCT.LT.O. 88.AND.XW.LT. 0.44) Y=1.25*XW 

IF ( T . LT . 0 . 88 . AND . XW . GE . 0 . 04 ) Y=0 . 4364*XW+0 . 032544 
IF ( T . GE . 0 . 88 . AND . XW . LT . 0 . 04 ) Y=-27 . 0* C T-0 . 934 ) **2+1 . 1392*XU+0 . 0787 
IF ( T . GE . 0 . 88 . AND . XW . GE . 0 . 04 ) Y=-27 . 0* C T-0 . 934 ) **2+0 . 50G7*XW+0 . 1 040 
GO TO 40 

20 IFCT.LT. 0.87. AND.XW.LT. 0.04) Y=1.050*XW 

IF ( T . LT . 0 . 87 . AND . XW . GE . 0 . 04 ) Y=0 . 2333*XW+0 . 033 

IFCT.GE. 0.87. AND.XW.LT. 0.04) Y=-11.90*CT-0.940)**2+1.0158*XW+0.058 
$3 

IF ( T . GE . 0 . 87. AND . XW . GE . 0 . 04 ) Y=- 1 1 . 9* C T-0 . 94 ) **2+0 . 2733*XW+0 . 0880 
GO TO 40 

30 IFCT.LT. 0.92. AND.XW.LT. 0.04) Y=0.450*XW 

I F ( T . LT . 0 . 92 . AND . XW . GE . 0 . 04 ) Y=0 . 09867*XW+0 .0142 
IFCT.GE. 0.92. AND.XW.LT. 0.04) Y=3.215*XW*T-2.5075*XW 
IFCT. GE. 0.92. AND. XW.GE. 0.04) Y=(0.440*XW+0. 1110)*T-0.3325*XW- 
$0.0870 

40 IFCXW.LT. 0.000000001) Y=0. 0 
ET AD=ET AD-Y*ET ADD 
RETURN 
END 

■++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
SUBROUTINE CSPSD 

*** SUBROUTINE CSPSD ALTERS PRESSURE RISE COEFICIENTS FOR OFF DESIGN 
SPEEDS 

COMMON /UECTOR/ CPCOCG), TITLEC12)» RT2C12), RH2C12)» RT3C12), 
XRH3C 12) » PHIREFC12), PSIREF ( 12)» ETAREFC 12) » PHIDESC 12, 9, 8) , 
XPSIDESC 12,9,8), ETADESC 12, 9, 8) , PHI(12,9,8), PSI(12,9,8), ETA(12,9 


DPHI 

11 

DPHI 

12 

DPHI 

13 

DPHI 

14 

DPHI 

15 

DPHI 

1G 

DPHI 

17 

DPHI 

18 

DPHI 

19 

DPHI 

20 

DPHI 

21 

CSETAD 

1 

CSETAD 

2 

CSETAD 

3 

CSETAD 

4 

CSETAD 

5 

CSETAD 

6 

CSETAD 

7 

CSETAD 

8 

CSETAD 

9 

CSETAD 

10 

CSETAD 

11 

CSETAD 

12 

CSETAD 

13 

CSETAD 

14 

CSETAD 

15 

CSETAD 

IB 

CSETAD 

17 

CSETAD 

18 

CSETAD 

19 

CSETAD 

20 

CSETAD 

21 

CSETAD 

22 

CSETAD 

23 

CSETAD 

24 

CSETAD 

25 

CSETAD 

26 

CSETAD 

27 

CSETAL 

1 

CSETAL 

2 

CSETAL 

3 

CSETAL 

4 

CSETAL 

5 

CSETAL 

G 

CSETAL 

7 

CSETAL 

8 

CSETAL 

9 

CSETAL 

10 

CSETAL 

11 

CSETAL 

12 

CSETAL 

13 

CSETAL 

14 

CSETAL 

15 

CSETAL 

IB 

CSETAL 

17 

CSETAL 

18 

CSETAL 

19 

CSETAL 

20 

CSETAL 

21 

CSETAL 

22 

CSETAL 

23 

CSETAL 

24 

CSETAL 

25 

CSPSD 

1 

CSPSD 

2 

CSPSD 

3 

CSPSD 

4 

CSPSD 

5 

CSPSD 

6 

CSPSD 

7 
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X, 8) * DPHIAC 12) p DPSIA( 12) p DETAU2), NSTAGE(12), PCTSPD(9)p CSPSD 

XBET2M( 12,9), BLEED(12,9), TTC13) , PTC13), PR(12), TRC12), PR0C12), CSPSD 
XTRO( 12) , ETAO(12), BET3MR( 12, 9) , UZ2M(12,9), UZ3M(12,9), AREA2(12) CSPSD 
X, AREA3( 12) » RM2(12), RM3C12), UT2(12)p UT3(12), UM2(12), UM3(12) CSPSD 
Xp BAT2MR( 12,9), DPS ISC 12,9), RSOLM( 12) , RK2MC12), CB2MC12), CB2MR( CSPSD 

X12) , CB3MRU2), RINCM( 12) , RDFM(12), SK2MC12), SINCM(12), BET3MC 12 CSPSD 
X, 9) , PHIFIXC 12) , DPHIF ( 12) , CPREFC 12 ) , GF1REF( 12) , ETAINP( 12) CSPSD 

X, FLOCALC 12,9) , ETARATC9), DB2M(12,9), DB2MR( 12p 9) , DB3MC 12, 9) , DB3MR CSPSD 
X( 12, 9) , B2MB3RC 12,9), SPEEDF, FLOUIN, U3DU2RC 12) , U2U3( 12) , DB3MRGC 12) CSPSD 

X, DB3MRNC 12, 9) ♦ DB3I1RPC 12, 8) , CPCMC6) , CPCS(G) CSPSD 

*, RK3M ( 12 ) , RDEU ( 12 ) , RDEF (12), GMREF (12) CSPSD 

*,PSID1(12,2,8),PSID2(12,2,8),PSID3(12,2,8),PSID4(12,2,8) CSPSD 

*» PSID5( 12, 2, 8), PS 11(12, 2, 8), PS 12(12,2, 8), PSI3(12, 2, 8) CSPSD 

*,PSI4( 12,2,8), PSI5( 12, 2,8) CSPSD 

*» PSID1L( 12,2,8), PSID2L( 12,2,8), PSID3L( 12,2,8) CSPSD 

*» PSID4L( 12, 2,8), PSID5L( 12, 2, 8) , PSI1L( 12, 2, 8) CSPSD 

*, PSI2L( 12, 2,8), PSI3L( 12, 2,8), PSI4L( 12, 2,8), PSI5L( 12, 2, 8) CSPSD 

COMMON /SCALER/ RU, PI, G, AJ, RAD, RG, DCP, GJ, G2J, RPMRAD, NSTA CSPSD 
X, NSPE, NPTS, PO, TO, DESRPM, DESFLO, UNITS CSPSD 

X, CP, GAMMA, GM1, GF1»GF2» GF3, SPDPSI,SPDPHI,DRDEUG, DREEUN, DRDEUP CSPSD 

X, XAR, XMET , XSTM CSPSD 

X, STAGEN, SPEEDN, CHAPTS, WTMOLE CSPSD 

DO 100 J=1 , NSPE CSPSD 

1=1 CSPSD 

TT( I ) = TO CSPSD 

PT ( I ) = PO CSPSD 

10 UZ3M( I, J) = UZ2M (1,1) *SPEEDF CSPSD 

U2MR = UZ3M ( I , J ) /COS ( DB2MR (1,1)) CSPSD 

BET3MR( I , J ) = DB3MR( 1,1) CSPSD 

ID = 0 CSPSD 

UT2M= UZ2M(I, 1)*SPEEDF* TAN(DB2M(I, 1) ) CSPSD 

U2S = UT2M**2 + UZ3M( I » J) **2 CSPSD 

RHOT = PT(I)/(TT(I)*RG) CSPSD 

RHOS = RHOT* (1.0 - U2S/(G2J*CPREF ( I )*TT ( I ) ) )**GF1REF ( I ) CSPSD 

DESFLC = RH0S*AREA2(I)*UZ3M(I, J) CSPSD 

TS = TT( I ) CSPSD 

11 UT3M = UM3( I )*SPEEDF - UZ3M( I, J)*TAN(BET3MR( I, J) ) CSPSD 

CP=CPFM(TS) CSPSD 

DT = (UM3(I)*UT3M - UM2( I )*UT2M)/(GJ*CP)*SPEEDF CSPSD 

TRA = (DT + TT ( I ) )/TT( I) CSPSD 

PTA3 = PT( I )«•( 1 . 0 + ETAREF ( I )*(TRA - 1.0))**GF2 CSPSD 

TTA3 = DT + TT( I ) CSPSD 

RHOT = PTA3/(TTA3*RG) CSPSD 

U3S = UT3M**2 + U23M(I,J)**2 CSPSD 

RHOS = RHOT* (1.0 - U3S/(G2J*CP*TTA3) )**GF1 CSPSD 

TS = TT A3* ( RHOS/RHOT ) **GM 1 CSPSD 

WCAL = RH0S*AREA3(I)*UZ3M(I, J) CSPSD 

IF (I.NE.l) GO TO 12 CSPSD 

DUZ3M = UZ3M( I , J) CSPSD 

12 CONTINUE CSPSD 

ID = ID + 1 CSPSD 

UZ3M (I, J) =DESFLC/ ( RHOS* AREA3 (I ) ) CSPSD 

U3MR=UZ3M (I, J) /COS ( BET3MR ( I, J) ) CSPSD 

I F ( DRDEUN . EQ . 1 . 0 ) CSPSD 

XDB3MRN( I, J) = -( 10.0 0/RAD) *(U3MR/U2MR - U3DU2R(I)) CSPSD 

BET3MR( I, J) = DB3MR( 1,1) + DB3MRN(I,J) CSPSD 

IF ((ABS(WCAL-DESFLC)/WCAL).GT. 0.005) GO TO 11 CSPSD 

DPSIS( I, J) = G J*CP*DT *ET AREF ( I ) / ( UT3 ( I ) *SPEEDF ) **2 - PSIREF(I) CSPSD 

DPSISCI.J) = DPSIS( I, J) - DPSIS(I.l) CSPSD 

1= I + 1 CSPSD 

IF (I.LE.NSTA) GO TO 10 CSPSD 

100 CONTINUE CSPSD 

RETURN CSPSD 

END CSPSD 

C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CSPAN 
SUBROUTINE CSPAN CSPAN 

*** SUBROUTINE CSPAN ALTERS FLOW AND PRESSURE RISE COEFICIENTS FOR CSPAN 

BLADE RESET CSPAN 

COMMON /UECTOR/ CPCO(G), TITLE(12), RT2(12), RH2(12), RT3C12), CSPAN 

XRH3U2), PHIREF ( 12) , PSIREF(12), ETAREF ( 12) , PHIDES( 12, 9, 8) , CSPAN 
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41 
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XPSIDES( 12, 9,8), ETADES(12,9,8), PHI(12,9,8), PSI(12,9,8), ETA(12,9 CSPAN 
X,8), DPHIAC 12) » DPSIAC 12) » DETAC12), NSTAGE( 12) » PCTSPD(9), CSPAN 

XBET2M( 12, 9) » BLEED ( 12, 9) » TT(13)> PT(13), PR(12) » TR( 12), PR0(12), CSPAN 
XTRO( 12) » ETA0( 12) > BET3MR(12,9), UZ2M(12,9), UZ3M(12,9), AREA2C 12) CSPAN 
X, ARE A3 ( 12) » RM2( 12) , RM3(12), UT2(12), UT3(12), UM2(12), UM3C12) CSPAN 
X» BAT2MR( 12, 9) * DPSISC 12, 9) * RSOLMC 12) » RK2M( 12) » CB2M( 12) » CB2MRC CSPAN 
X12), CB3MRC 12) , RINCM( 12), RDFM(12), SK2MC12), SINCM(12), BET3M(12 CSPAN 
X, 9) » PHIFIX( 12) * DPHIF ( 12) » CPREF ( 12) » GF1REF( 12) , ETAINP( 12) CSPAN 

X» FLOCALC 12, 9) » ETARATC9) » DB2M(12,9), DB2MR(12,9),DB3M(12,9),DB3MR CSPAN 
X ( 12, 9 ) , B2MB3R (12,9), SPEEDF, FLOWIN, U3DU2R (12 ) , U2U3 (12 ) , DB3MRG (12) CSPAN 

X, DB3MRN( 12, 9) , DB3MRP( 12, 8) , CPCM(G) » CPCS(G) CSPAN 

•*, RK3M (12), RDEU (12 ) , RDEF ( 12 ) , GMREF ( 12 ) CSPAN 

*,PSID1(12, 2,8),PSID2(12,2,8),PSID3(12,2,8),PSID4(12,2,8) CSPAN 

*» PS I D5 (12,2,8), PS 11(12,2,8), PS 12(12,2,8), PS 13(12,2,8) CSPAN 

*» PS 14(12,2,8), PS 15(12, 2,8) CSPAN 

*»PSID1L(12»2»8)» PSID2L( 12,2,8), PSID3L( 12,2,8) CSPAN 

•*> PSID4L( 12,2,8), PSID5L( 12,2,8),PSI1L(12,2,8) CSPAN 

*» PSI2L( 12, 2,8), PSI3L( 12, 2, 8) , PSI4L( 12, 2, 8) , PSI5L( 12, 2, 8) CSPAN 

COMMON /SCALER/ RU, PI, G, AJ, RAD, RG, DCP, GJ, G2J, RPMRAD, NSTA CSPAN 
X, NSPE, NPTS, PO, TO, DESRPM, DESFLO, UNITS CSPAN 

X, CP, GAMMA, GM1, GF1, GF2, GF3, SPDPSI, SPDPHI, DRDEUG, DRDEUN, DRDEUP CSPAN 

X, XAR, XMET , XSTM CSPAN 

X, STAGEN, SPEEDN, CHAPTS, WTMOLE CSPAN 

J=1 CSPAN 

1=1 CSPAN 

TT( I )= TO CSPAN 

PT( I)= PO CSPAN 

90 T5= TT ( I ) CSFAN 

DPHIA(I) = 0.0 CSPAN 

DPSIA(I) = 0.0 CSPAN 

DETA(I) =0.0 CSPAN 

IF ( (CB2M( I ) + CB2MR( I ) + CB3MR( I) ) .EQ. 0 . 00) GO TO 93 CSPAN 

BET2M( I , J)= DB2M( I, J) + CB2M(I) CSPAN 

BAT2MR( I, J)= DB2MR( I, J) + CB2MR(I) CSPAN 

BET3MR ( I , J) = DB3MR( I, J) + CB3MR(I) CSPAN 

UZ2M( I , J)= UM2( I )/(TAN(BET2M( I, J) )+ TAN(BAT2MR( I , J) ) ) CSPAN 

U2MR = UZ2M ( I , J ) /COS ( BAT2MR ( I , J ) ) CSPAN 

C *** CHANGE IN FLOW COEFICIENT FOR RESET CSPAN 

DPHIA( I )= UZ2M( I, J)/UT2( I ) - PHIREF(I) CSPAN 

UZ3M( I » J)= UZ2M ( I , J ) CSPAN 

UT2M= UZ2M( I, J)*TAN(BET2M( I, J) ) CSPAN 

U2S = UT2M**2 + UZ3M(I, J)**2 CSPAN 

RHOT = PT(I)/(TT(I)*RG) CSPAN 

RHOS = RHOT*(1.0 - U2S/(G2J*CPREF( I )*TT( I ) ) )**GF1REF( I ) CSPAN 

DESFLC = RH05*AREA2(I)*UZ3M(I, J) CSPAN 

FLGCAL( I , J) = DESFLC CSPAN 

92 UT3M= UM3( I ) - UZ3M(I,J) *T AN ( BET3MR ( I , J ) ) CSPAN 

CP=CPFM(TS) CSPAN 

DT= (UM3( I ) * UT3M - UM2 ( I ) *UT2M ) / ( G J*CP ) CSPAN 

TRA = (DT + TT(I))/TT(I) CSPAN 

PTA3 = PT(I)*(1.0 + ETAREF ( I )*(TRA -1.0))**GF2 CSPAN 

TTA3 = DT + TT( I ) CSPAN 

RHOT= PTA3 /(TTA3 *RG) CSPAN 

U3S = UT3M**2 + UZ3M( I , J)**2 CSPAN 

RHOS = RHOT*(1.0 - U3S/(G2J*CP*TTA3 ))**GF1 CSPAN 

TS = TTA3 *(RHOS/RHOT)**GMl CSPAN 

WCAL = RH0S*AREA3(I)*UZ3M(I, J) CSPAN 

UZ3M( I, J) = DESFLC/ ( RHQS^ARE A3 ( I ) ) CSPAN 

U3MR = UZ3M ( I , J ) /COS ( BET3MR ( I , J ) ) CSPAN 

C *** OPTION TO ALTER ROTOR DEUIATION ANGLE FOR BLADE RESET CSPAN 

IF (DRDEUG. EQ. 1.0) CSPAN 

XDB3MRG( I ) = -(10. 00/RAD)*(U3MR/U2MR - U3DU2R(I)) CSPAN 

BET3MR( I, J) = DB3MR( I, J) + CB3MR(I) + DB3MRG ( I ) CSPAN 

IF ((ABS(WCAL-DESFLC)/WCAL).GT. 0.005) GO TO 92 CSPAN 

C *** CHANGE IN PRESSURE RISE COEFICIENT FOR RESET CSPAN 

DPSIA(I) = GJ*CP*DT/(UT3(I)*UT3(I) )*ETAREF(I) - PSIREF(I) CSPAN 

93 I = 1+1 CSPAN 

IF (I.LE.NSTA) GO TO 90 CSPAN 

RETURN CSPAN 

END CSPAN 
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C+.^+++++++.{-++-fr+++++++++++++++++++++ + + - H -++++++++++++l H-H n ++++++4-- H -++ + + 

SUBROUTINE CSOUPTCFAIO, ISTAGE, FL0U1 » ALFA1 » BETA1 » BETA2» 

XUZ* ALFA2, ALFA3, DELTG, DELTU, U1»U2,U1,U2) 

C PERFORMANCE PARAMETERS 

COMMON /PERDUE/ JPERFM, RH0GC3) , RERUP, RERLOU, RESUP, RESLOW 
X, PREB, RRTIP(8 ) , SRTIP ( 8 ) , AAAI , AAA2, AAA3, SAREA (6) , SAREAS ( ? ) 

X, P(3)*TG(3)»XA,XU(3), XCH4 , XU ( 3 ) » XUU ( 3 ) * XUT ( 3 ) » TU ( 3 ) , TUU C 3 ) 

X , OMEGS (7) » OMEGR(G) » GAPR (G) » GAPS ( G ) 

X, RRR)B(G) , RC(6) , RBLADE(G) , STAGER (G) 

X, SRHUBC7) , SC (7) , SBLADEC7) , STAGES (7) 

X, SIGUMR(G) , BETISR(G) , BET2SRCG) , AINCSR(G) , ADEUSR(G) 

X, SIGUMSC7) * BET1SSC7) , BET2SSC7) , AINCSS(7) , ADEUSS(7) 

X, UTIPG(6)»UTIP(6), UTIPD(G) * U0U(6) » UMEANCG) , UHUB(6) * U(6) » FAI 
X. AREA(G) » AREAS (7) * UU2(G) » UTIP2(6) » UMEAN2(G) » UHUB2CG) » I PRINT 
X. I CENT* IICENT*FMR1 (6) » FMA2(G) * IRAD, FAID 
X, NS, NS1, RT(6) » RM(G) , RH(6) » ST(G) » SM(6) » SH(6) 

X, DSMASS, AAREA(7) , AAREASC7) » PR12D(6) »PR13D(6)» ETARD(G) 

X , DR ( G ) * DS ( G ) * DEQR C G ) , DEQS ( G ) , BLOCK ( G ) , BLOCKS C 7 ) 

X, BET1MRCG) » BET2MRCG) * BET1MSC7) , BET2MSC7) » RADII (6) » RADI2(G) 

COMMON /UECTOR/ CPC0(6), TITLE( 12) » RT2(12), RH2C12), RT3(12), 
XRH3(12), PHIREF C 12) * PSIREF ( 12) » ETAREFC 12) » PHIDES( 12, 3, 8) , 
XPSIDESC 12* 3* 8) » ETADESC 12, 9, 8) , PHI(12,9*8), PSI(12,9,8), ETA(12*S 
X* 8) * DPHIAC 12) , DPSIAU2), DETAU2), NSTAGEC 12) , PCTSPDC9) » 

XBET2MC 12*9), BLEEDC 12, 9) , TT(13), PTC13), PR(12), TRC12), PR0C12), 
XTR0(12), ETA0C12), BET3MRC 12, 9) , UZ2M(12,9)» UZ3M(12,9), AREA2C 12) 
X, AREA3C 12) , RM2C12), RM3C12), UT2(12), UT3C12), UM2C12), UM3C12) 
X, BAT2MRC 12*9), DPSIS ( 12,9), RSOLMC 12) , RK2MC12), CB2MC12), CB2MRC 

X12) , CB3MRC 12) * RINCMC 12), RDFMC12), SK2MC12), SINCMC 12) , BET3MC12 
X, 9) , PHIFIXC 12) , DPHIF < 12) , CPREF ( 12) , GF1REFC 12) , ETAINPC 12) 

X, FLOCALC 12, 9) , ETARATC9) , DB2M(12,9), DB2MRC 12, 9) , DB3MC 12, 9) , DB3MR 
X( 12,9), B2MB3RC 12* 9) , SPEEDF, FLOUIN, U3DU2RC 12) , U2U3C 12) * DB3MRGC 12) 

X * DB3MRN (12,9), DB3MRP (12,8), CPCM (G) , CPCS ( G ) 

■*, RK3M( 12) , RDEU( 12) , RDEF ( 12) , GMREF (12) 

*»PSID1(12,2*8)» PSID2( 12, 2, 8), PS ID3 (12, 2, 8), PSID4( 12*2,8) 
*,PSID5(12»2,8),PSI1(12,2»8),PSI2(12,2»8)»PSI3(12»2»8) 

*, PSI4C 12,2, 8) , PSI5C 12, 2, 8) 

*,PSID1L(12,2,8), PSID2L( 12, 2,8), PSID3L( 12,2,8) 

■*, PSID4LC 12*2,8), PSID5L( 12, 2*8),PSI1L(12,2,8) 

*, PSI2L(12,2,8)*PSI3L(12,2,8),PSI4L(12,2,8),PSI5L(12,2,8) 

COMMON /SCALER/ RU, PI, G, AJ, RAD, RG, DCP, GJ, G2J, RPMRAD, NSTA 
X, NSPE, NPTS, PO, TO, DESRPM, DESFLO, UNITS 

X, CP, GAMMA, GM1, GF1, GF2, GF3, SPDPSI, SPDPHI, DRDEUG, DRDEUN, DRDEUP 
X, XAR, XMET , XSTM 
X, STAGEN, SPEEDN, CHAPTS, UTMOLE 
FLOUIN=FLOUl 
DFLOU=FLOUIN 
FLOUFI=FLOUIN 
IF (UNITS. NE. 1.0) GO TO 81 
FLOUIN = FLOUIN/O. 453592 
DFLOU = DFLOU/O. 453592 
FLOUFI = FLOWFI/O. 453592 

81 CONTINUE 
JS=1 

DO 82 J=l» NSPE 

IF ( SPEEDF. EO.PCTSPD(J)) JS=J 

82 CONTINUE 

C *** CALCULATE THE OUTPUT 
I=ISTAGE 
TT(I)=TG(1) 

PT( I )=P( 1 ) 

UTFLOU = FLOUIN 
RHOT= PT(I)/(TT(I) *RG ) 

TS= TT( I ) 

RHOS= RHOT 
RH0U=62. 3 

RHOSM=l . 0/( ( 1 . 0-XUT( 1 ) )/RHOS+XUT( 1 )/RHOU) 

UTFLOU = UTFLOU - FLOUI N*BLEED ( I , JS ) 

U2 = UT2(I)*SPEEDF 
U3 = UT3( I )*SPEEDF 
UMM2 = UM2 ( I ) *SPEEDF 
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LJMM3 = UM3d)*SPEEDF 
100 U2=WTFL0W/(RH0SM*AREA2(I ) ) 

U= UZ/COS ( BET2M (I » 1 ) ) 

CP=CPFM(TS) 

RHOS= RHOT*(l . 0-U*U/(G2J*CP*TTC I ) ) )**GF1 
RHQSM= 1 . 0/ ( ( 1 . 0-XWT ( 1 ) ) /RHOS+XWT ( 1 ) /RHOW ) 

IF ( ( U*U ) . GT . ( G2 J*CP*TT (I ) ) ) GO TO 113 
TS= TT(I)*(RHOS/RHOT)**GMl 
RHOSl=RHOS 
TS1=TS 

PS1=PT ( I )*(TT ( I )/TSl )**(-GF2) 

WCAL=RH0SM*UZ*AREA2(I ) 

IF((ABS(UCAL“WTFLOW)/UCAL).GT. 0.005) GO TO 100 
PHIC = UZ/U2 

IF(PHIC.GT.PHI(I, JS,NPTS)) GO TO 120 
DO 200 1=1, M5TA 
DO 200 J=1,NSPE 
DO 200 K=1,NPTS 
PSId, J,K)=PSI1(I, J,K) 

IF(XU( 1 ). GT. 0.0. AND. XU(1).LE. 0.05) PSId, J,K)=PSI2d, J, K) 
IF(XW( 1 ) .GT . 0. 05. AND. XWC 1 ).LE.0.10)PSI (I, J, K)=PSI3d » J, K) 
IF(XW(1).GT.0.10. AND. XUI( 1).LE.0.15)PSI(I»J, K)=PSI4( I , J, K) 
IF(XU(1).GT.0.15) PSI ( I * J* K ) =PSI5C I , J, K) 

200 CONTINUE 
I=ISTAGE 

DO 130 K=2* NPTS 

IFCPHIC-PHI (I » JS* K) ) 140, 150, 130 

130 CONTINUE 
K- NPTS 

140 PSIC=(PSI(I, JS,K)-PSI(I, JS,K-1))*(PHIC-PHI(I, JS,K-1) )✓ 

1 (PHI ( I * JS, K)~PHI ( I, JS, K-l ) ) + PSICI. JS*K-1) 

ETAC= ( ETA (I , JS , K ) -ETA (I , JS , K- 1 ) ) * ( PH I C-PH I (I , JS , K- 1 ) ) / 

1 (PHI ( I» JS* K)-PHI (I, JS* K-l ) ) + ETA(I» JS.K-1) 

GO TO 1G0 

150 PSIC= PSI ( I* JS»K) 

ETAC= ETA(I* JS»K) 

1G0 CONTINUE 

CALL CSETA1 (I, J, K, XWC1 ) , PHIC, PHIREFd ) , ETAC) 

PRd) = (1.0 + PSIC*U3*U3/ (GJ*CP*TT(I) ) )**GF2 
TAU = PSIC/ETAC 

TR( I )= 1.0 + (PR(I)**GF3-1.0VETAC 
TT ( 1+1 )= TT ( I )*TR(I ) 

PT ( 1+1 )= PTd) *PR( I ) 

TROCI )= TTd+IVTO 
PROd )= PT(I+l)/PO 
GF3S = GF3 

GF30= (GF3 + GF3S)/2.0 

ETAOCI )= (PRO( I )**GF30 - l.OVCTROd) - 1.0) 

UT2M = UZ * TAN(BET2N(I, 1) ) 

UT2MR = UMN2 - UT2N 
BAT2MRCI, JS)= ATAN2(UT2MR» UZ) 

RINCM( I )= BAT2NR( I, JS) * RAD - RK2M(I) 

U2MR= UZ/COS ( B AT2MR (I , JS ) ) 

RHOT= PT(I+1)/(TT( 1+1 )*RG) 

TS= TT(I+1) 

RHOS= RHOT 

RHOSN=l . 0/( d . 0-XNT(l ) )/RHOS+XUT(l VRHOU) 

161 <JZ3N (I , JS ) =WTFLOUI/ ( RH0SM*AREA3 (I ) ) 

UT3M= (CP*(TT(I+1)-TT(I) )*GJ + UNM2 *UT2N)/UNM3 
US= UZ3M(I,JS)**2 + UT3M**2 
CP=CPFM ( TS ) 

RHOS= RHOT*(l . 0-US/(G2J*CP*TTCI+l ) ) )**GF1 
RHOSM=i . 0/ ( ( 1 . 0-XWT ( 1 ) ) /RH03+XUT ( 1 ) /RHOW ) 

IFC (US) .GT. (G2J*CP*TT (1+1 ) ) ) GO TO 113 
TS= TT ( 1+1 ) * (RHOS/RHOT) **GM1 
RH0S2=RH0S 
TS2=TS 

PS2=PT (1+1 ) * ( TT ( 1+1 ) /TS2 ) ** ( -GF2 ) 

WCAL=RH0SM*AREA3 ( I ) *UZ3M (I , JS ) 

IF (ABS(WCAL-WTFLOW).GT. 0.005) GO TO 1G1 
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BET3MC I, JS) = ATAN2CUT3M, UZ3M( I, JS) ) 

CSOUPT 

141 

SINCM(I) = BET3MCI, JS)*RAD - SK2MCI) 

CSOUPT 

142 

UT3MR = UMM3 - UT3M 

CSOUPT 

143 

BET3MR < X , JS ) = ATAN2 ( UT3MR , U23n C I , JS ) ) 

CSOUPT 

144 

U3MR = UZ3M ( I » JS ) /COS ( EET3MR ( I » JS ) ) 

CSOUPT 

145 

RDFMC I )= 1.0 - U3MR/U2MR + (RM3(I)*UT3M - RM2 Cl) *UT2N ) / ( RM3 ( I ) + 

CSOUPT 

146 

XRM2C I ) )/RSOLM( I VU2MR 

CSOUPT 

147 

IF C UNITS. EO. 1.0 ) WTFLOW = WTFLOW*0 . 453592 

CSOUPT 

148 

RDEU ( I ) =EET3MR ( I , JS ) *RAD-RK3M ( I ) 

CSOUPT 

14S 

BAT2MR C I , JS ) =EAT2MR ( I , JS ) *RAD 

CSOUPT 

150 

BET3fiR ( I , JS ) =BET3MR ( I , JS ) «RAD 

CSOUPT 

151 

RDEF ( I ) =B AT2MR ( I , JS ) -BET3MR ( I , JS ) 

CSOUPT 

152 

SDA1=SQRT (GAMMA*,RG~G*TS1 ) 

CSOUPT 

153 

SDA2=SGRT ( G AMM A*RG*G*TS2 ) 

CSOUPT 

154 

AM2=U/50Ai 

CSOUPT 

155 

AM3=SQRT(US)/S0A2 

CSOUPT 

156 

AM2R=U2MR/S0A1 

CSOUPT 

157 

AM3R=U3MR/S0A2 

CSOUPT 

153 

PRATIO=PR( I ) 

CSOUPT 

159 

TRATIO=TR( I ) 

CSOUPT 

160 

FAI 1=PHIC 

CSOUPT 

161 

FAI2=UZ3M( I, JS) 

CSOUPT 

162 

UZ1=UZ 

CSOUPT 

163 

UTIPGC I )=U2 

CSOUPT 

164 

P( 1 )=PT ( I ) 

CSOUPT 

165 

P(2)=PT ( 1+1 ) 

CSOUPT 

166 

P(3)=P(2) 

CSOUPT 

167 

TGC 1 )=TT ( I ) 

CSOUPT 

168 

TG(2)=TT C 1 + 1 ) 

CSOUPT 

169 

TG(3)=TG(2) 

CSOUPT 

170 

DELTG=TG ( 2 ) -TG ( 1 ) 

CSOUPT 

171 

DELTU= C TG ( 2 ) ~TG (1 ) ) *CP 

CSOUPT 

172 

RHOGC 1 )=RH0S1 

CSOUPT 

173 

RHOG ( 2 ) =RH0S2 

CSOUPT 

174 

UZ2=UZ3M(I» JS) 

CSOUPT 

175 

U1=U 

CSOUPT 

176 

U2=SQRT (US) 

CSOUPT 

177 

U1=U2MR 

CSOUPT 

178 

U2=U3MR 

CSOUPT 

179 

US1=UT2M 

CSOUPT 

180 

US2=UT3M 

CSOUPT 

181 

WS1=UT2MR 

CSOUPT 

182 

US2=UT3MR 

CSOUPT 

183 

ASPED1=S0A1 

CSOUPT 

184 

ASPED2=S0A2 

CSOUPT 

185 

AMAC1=AM2 

CSOUPT 

186 

AMAC2=AM3 

CSOUPT 

187 

AMACH1=AM2R 

CSOUPT 

188 

AMACH2=AM3R 

CSOUPT 

189 

FAI 1=PHIC 

CSOUPT 

ISO 

FAI2=UZ3M(I. JSVU3 

CSOUPT 

1S1 

AAA1=SAREA( I ) 

CSOUPT 

1S2 

AAA2=SAREAS( I ) 

CSOUPT 

193 

ALFA1-BET2MC I, 1 )*RAD 

CSOUPT 

194 

ALF A2=BET3M ( I , JS ) *RAD 

CSOUPT 

195 

ALFA3=0 . 0 

CSOUPT 

196 

IFCI.LT.NSTA) ALF A3=BET2M ( I + 1 * 1 ) *R AD 

CSOUPT 

197 

BETA1=BAT2MR( I» JS) 

CSOUPT 

198 

BET A2=BET3MR ( I » JS ) 

CSOUPT 

188 

AINCIR=RINCM( I ) 

CSOUPT 

200 

AINCIS=SINCM(I) 

CSOUPT 

201 

ADEUIR=RDEU( I ) 

CSOUPT 

202 

C **» WRITE THE OUTPUT 

CSOUPT 

203 

WRITE(6» 404) FAIO, ISTAGE 

CSOUPT 

204 

404 FORMAT ( 1H1 » IX, *********************** *,1X> 

CSOUPT 

205 

SFINITIAL FLOW COEFFICIENTS, IX, F5. 3, IX, *(STAGE=*, 12, IX, 

CSOUPT 

206 

^ p 2X > ‘1% w ‘X 1 ^ ’If ii xx t Jli ) 

CSOUPT 

207 

WRITECG, 401 ) PRATIO, TRATIO, ETAC 

CSOUPT 

208 

401 FORMAT ( 1 HO » 5X , FST AGE TOTAL PRESSURE RATIOS, F12. 5, /, 

CSOUPT 

209 

$BXSSTAGE TOTAL TEMPERATURE RATIOS, F12. 5, /, 

CSOUPT 

210 
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$GX» *STAGE ADIABATIC EFFICIENCY=*,F12.5) 

WRITEC6, 402) FAI1,UZ1,UTIPG( ISTAGE) 

402 FORMAT C 1H0» 5X, *STAGE FLOW COEFFICIENT^*, F5. 3, /, 

$6X» * AXIAL UELOCITY=*,F7.2,/, 

$6X» *ROTOR SPEEDS. F7. 2,/) 

WRITECG, 405) 

405 FORMAT ( 1H0, 24X, **R0TQR INLET* *ROTOR OUTLET* *STATOR OUTLET**) 
WRITECG, 40G) PC 1 ) , PC2) » PC3) 

40G FORMAT C 1H , 1X,*T0TAL PRESSURE*, 10X, 3CF10. 4. 5X) ) 

WRITECG, 407) PS1,PS2 

407 FORMAT C 1H , 1X»*STATIC PRESSURE*, 9X» 2CF10. 4, 5X) ) 

WRITECG, 408) TGC 1 ) , TGC2) , TGC3) 

408 FORMAT C 1H ,1X,*T0TAL TEMPERATURE C GAS)*, 3X»3(F10.4, 5X) ) 

WRITECG, 409) TS1,TS2 

409 FORMAT C 1H ,1X,*STATIC TEMPERATURE C GAS)*, 1X,2CF10.4,5X)) 

WRITECG, 410) RHOGC 1 ) , RH0GC2) 

410 FORMAT C 1H ,1X,*STATIC DEMSITYCGAS)*, 5X, 2CF10 .4, 5X) ) 

WRITECG, 412) U21,U22 

412 FORMAT C 1H0, IX, *AXIAL UELOCITY*, 10X, 2CF10.4, 5X) ) 

WRITECG, 413) U1,U2 

413 FORMAT C 1H , IX, *ABS0LUTE UELOCITY*, 7X, 2CF10 . 4, 5X) ) 

WRITECG, 414) W1,W2 

414 FORMATCiH , IX, *RELATIUE UELOCITY*, 7X, 2CF10 . 4, 5X) ) 

WRITECG, 415) UC ISTAGE) , UU2C ISTAGE) , UC ISTAGE+1 ) 

415 FORMATCIH ,1X,*BLADE SPEED*, 13X, 3CF10 . 4, 5X) ) 

WRITECG, 41S) US1 , US2 

41G FORMATCIH ,1X,*TANG. COMP. OF ABS. UEL.*,2CF10.4,5X) ) 

WRITECG, 417) WS1,WS2 

417 FORMATCIH ,1X,*TAHG. COMP. OF REL. UEL. *, 2CF1 0 . 4, SX) ) 

WRITECG, 418) ASPED1, ASPED2 

418 FORMATCIH , IX, *ACOUSTIC SPEED*, 10X, 2CF10.4, 5X) ) 

WRITECG, 419) AMAC1, AMAC2 

419 FORMATCIH , IX, *AESOLUTE MACH NUMBER*, 4X, 2CF10.4, 5X) ) 

WRITECG, 420) AMACH1 , AMACH2 

420 FORMATCIH , IX, *RELATIUE MACH NUMBER*, 4X, 2CF10. 4, 5X) ) 

WRITECG, 421) FAI1,FAI2 

421 FORMAT C 1H0, IX, *FLQW COEFFICIENT*, 8X, 2CF10 . 4, 5X) ) 

WRITECG, 422) AAAI , AAA2 

422 FORMATCIH ,1X,*FL0W AREA*, 15X, 2 C F10 . 4, 5X) ) 

WRITECG, 423) ALFA1 , ALFA2, ALFA3 

423 FORMAT C 1H0, IX, *AESOLUTE FLOW ANGLE*, 5X, 3CF10.4, 5X) ) 

WRITECG, 424) BETA1 , BETA2 

424 FORMATCIH * IX, *RELATIUE FLOW ANGLE*, 5X, 3CF10. 4, 5X) ) 

WRITECG, 425) AINCIR, AINCI5 

425 FORMATCIH , IX, INCIDENCE*, 1GX, 2CF10 . 4, 5X) ) 

WRITECG, 42G) ADEUIR 

42G FORMATCIH , IX, *DEUIATION*, 30X, 1 CF10.4, 5X) ) 

IF CUNITS.EO. 1.0) WTFLOW = WTFLOW/O. 453592 
GO TO 111 

110 WRITECG, 2100) I,PHIC 

2100 FORMAT C10H FOR STAGE, 13, 18H , COMPUTED PHI IS, F8. 4, OSH STALL) 

GO TO 111 

120 WRITECG, 2110)1, PHIC 

2110 FORMAT C10H FOR STAGE, 13, 1SH , COMPUTED PHI IS,F3.4,06H CHOKE) 

GO TO 113 

111 FLOWIN=FLOWIN+DFLOW 

IF CFLOWIN. LE. FLOWFI ) GO TO 81 

113 CONTINUE 

DO 112 1=1 , NSTA 
DO 112 J=1 , NSPE 

112 DPSISC I , J) = 0.0 
RETURN 

END 

Q++++++++ +++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++ 
SUBROUTINE C0UPT2CFAI0, ISTAGE, FLOW1, ALFA1 , BETA1 , BETA2, 

XU2, ALFA2, ALFA3, DELTG, DELTW, Wl, W2, U1 , U2) 

C PERFORMANCE PARAMETERS 

COMMON /PERDUE/ JPERFM, RH0GC3) , RERUP, RERLOW, RESUP, RESLOW 
X, PREB, RRTIPC8) , SRTIPCS) , AAAI, AAA2, AAA3, SAREACG) » SAREASC7) 

X, PC3)»TGC3)»XA,XUC3)» XCH4, XWC3) , XWWC3) , XWT C3) » TWC3 ) , TWWC3) 


CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

CSOUPT 

COUPT 

COUPT 

COUPT 

COUPT 

COUPT 

COUPT 

COUPT 


211 

212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 
23G 

237 

238 

239 

240 

241 

242 

243 

244 

245 
24S 

247 

248 
243 

250 

251 

252 

253 

254 

255 
25G 

257 

258 

259 

260 
261 
2G2 

263 

264 
2G5 
2GG 
2G7 
2G8 
2G9 

270 

271 

272 

273 
1 
2 

3 

4 

5 
G 
7 
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V 


IF (UNITS. EG). 1.0) WTFLOW = WTFLOW*0. 453532 

COUPT 

148 

RDEU ( I ) =BET3MR ( I , JS ) *RAD-RK3M ( I ) 


COUPT 

149 

BAT2MR ( I , JS ) =B AT2MR (I, JS) *RAD 


COUPT 

150 

BET 3MR (I , JS ) =BET3MR ( I , JS ) *R AD 


COUPT 

151 

RDEF(I) =BAT2MR ( I . JS ) -BET3MR ( I . JS ) 


COUPT 

152 

SO A 1 =SQRT ( G AMMA*RG*G*TS 1 ) 


COUPT 

153 

S0A2=SQRT ( GAMMA*RG*G*T52 ) 


COUPT 

154 

AM2=U/S0A1 


COUPT 

155 

AM3=SQRT(US)/S0A2 


COUPT 

15E 

AM2R=U2MR/S0A1 


COUPT 

157 

AM3R=U3MR/SQA2 


COUPT 

158 

PRATI0=PR( I ) 


COUPT 

159 

TRATIO=TR( I ) 


COUPT 

ISO 

FAI1=PHIC 


COUPT 

1G1 

FAI2=UZ3M( I, JS) 


COUPT 

1G2 

UZ1=UZ 


COUPT 

1G3 

UTIPGC I )=U2 


COUPT 

1G4 

PC 1 )=PT ( I ) 


COUPT 

1G5 

P(2)=PT ( 1+1 ) 


COUPT 

1GG 

P(3)=P(2) 


COUPT 

1G7 

TGC 1 )=TT ( I ) 


COUPT 

IBS 

TG(2)=TT(I+1) 


COUPT 

1G9 

TG(3)=TG(2) 


COUPT 

170 

DELTG=TG(2)-TG( 1) 


COUPT 

171 

DELTW=0 . 0 


COUPT 

172 

RHOGC 1 )=RH0S1 


COUPT 

173 

RH0G(2)=RH0S2 


COUPT 

174 

UZ2=UZ3M ( I » JS ) 


COUPT 

175 

U1=U 


COUPT 

17G 

U2=SQRT (US) 


COUPT 

177 

W1=U2MR 


COUPT 

178 

W2=U3MR 


COUPT 

179 

US1=UT2M 


COUPT 

180 

US2=UT3M 


COUPT 

181 

WS1=UT2MR 


COUPT 

182 

WS2=UT3MR 


COUPT 

183 

ASPED1=S0A1 


COUPT 

184 

ASPED2=S0A2 


COUPT 

185 

AMAC1=AM2 


COUPT 

1SG 

AMAC2=AM3 


COUPT 

187 

AMACH1=AM2R 


COUPT 

188 

AMACH2=AM3R 


COUPT 

189 

FAI 1=PHIC 


COUPT 

ISO 

FAI2=UZ3M(I, JS)/U3 


COUPT 

191 

AAA1=SAREA( I ) 


COUPT - 

192 

AAA2=SAREAS( I ) 


COUPT 

193 

ALFA1=BET2M(I, 1)*RAD 


COUPT 

194 

ALF A2=BET3M ( I » JS ) *R AD 


COUPT 

195 

ALFA3=0 • 0 


COUPT 

13G 

I F ( I . LT . NSTA ) ALFA3=BET2M (1+1,1) *R AD 


COUPT 

197 

BETA1=BAT2MR( I, JS) 


COUPT 

198 

BET A2=BET3MR ( I , JS ) 


COUPT 

199 

AINCIR=RINCM( I ) 


COUPT 

200 

AINCIS=SINCM( I ) 


COUPT 

201 

ADEUIR=RDEU( I ) 


COUPT 

202 

C *** WRITE THE OUTPUT 


COUPT 

203 

WRITECG, 404) FAIO, ISTAGE 


COUPT 

204 

404 FORMAT ( 1H1 » IX, ********************* 

*» IX, 

COUPT 

205 

$*INITIAL FLOW COEFFICIENTS. IX, F5. 3, 

IX,* (STAGED, 12, IX, 

COUPT 

20S 

$*)*, 2 X, *********************) 


COUPT 

207 

WRITECS, 401 ) PRATIO, TRATID, ETAC 


COUPT 

208 

401 FORMAT ( 1H0, 5X, ISTAGE TOTAL PRESSURE 

RATI0=*,F12.5,/» 

COUPT 

209 

$GX,*STAGE TOTAL TEMPERATURE RATION* 

F12.5, /» 

COUPT 

210 

$6X,*STAGE ADIABATIC EFFICIENCY^, F12 

.5) 

COUPT 

211 

WRITECS, 402) FAI 1, UZ1. UTIPG( ISTAGE) 


COUPT 

212 

402 FORMAT ( 1HO, 5X, ISTAGE FLOW COEFFICIENT=X, F5.3, /, 

COUPT 

213 

$EX, XAXIAL UEL0CITY=*,F7.2,/, 


COUPT 

214 

$SX, XRQTOR SPEED=*,F7.2,/) 


COUPT 

215 

WRITECS, 405) 


COUPT 

21S 

405 FORMAT C 1H0 , 24X, **ROTOR INLET* *ROTOR 

OUTLET* *STATOR OUTLET**) 

COUPT 

217 
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TS= TTC I )*(RH0S/RH0T)**Gf11 COUPT 

RHOSl=RHOS COUPT 

TS1=TS COUPT 

PS1=PT(I)*(TT(IVTS1)**(-GF2) COUPT 

UCAL=RH0S*UZ*AREA2( I ) COUPT 

IF((ABS(UCAL-WTFLOW)/WCAL).GT. 0.005) GO TO 100 COUPT 

PHIC = UZ/U2 COUPT 

IF(PHIC.GT.PHI(I» JS,NPTS) ) GO TO 120 COUPT 

DO 200 I=1,NSTA COUPT 

DO 200 J=1,NSPE COUPT 

DO 200 K=1 , NPTS COUPT 

PSI ( I » J» K) =PSI 1L(I»J»K) COUPT 

IF(XWW( 1 ). GT. 0.0. AND. XWWCD.LE. 0.05) PSI ( I, J» K)=PSI2L( I, J» K) COUPT 

IFCXWWC 1).GT. 0.05. AND. XWU(l) .LE.0.10)PSI(I, J,K)=PSI3L(I» J» K) COUPT 

IF( XWW Cl). GT. 0.10. AND. XUW( 1).LE.0.15)PSI(I,J, K)"PSI4L( I » J» K ) COUPT 

IF(XWUCl).GT.O.lS) PSHI, J,K)=PSI5L(I, J,K) COUPT 

200 CONTINUE COUPT 

I=ISTAGE COUPT 

DO 130 K=2» NPTS COUPT 

IFCPHIC-PHI C I» JS* K) ) 140,150, 130 COUPT 

130 CONTINUE COUPT 

K= NPTS COUPT 

140 PSIC=(PSI ( I, JS, K)-PSI ( I, JS, K-l ) H-CPHIC-PHI ( I, JS, K-l ) )/ COUPT 

1 (PHI ( I, JS, K)-PHI ( I, JS, K-l ) ) + PSI ( I , JS, K-l ) COUPT 

ETAC=(ETA( I , JS, K)-ETA( I, JS, K-l ) )*(PHIC-PHI ( I , JS, K-l ) )/ COUP I 

1 (PHI ( I, JS, K)-PHI ( I» JS, K-l ) ) + ETA( I , JS, K-l ) COUPT 

GO TO 160 COUPT 

150 PSIC= PSI ( I , JS, K ) COUPT 

ETAC= ETA( I, JS, K) COUPT 

160 CONTINUE COUPT 

CALL CSETAL( I, J, K, XWW( 1 ) , PHIREF ( I ) , PHIC, ETAC, ETAREF ( I ) ) COUPT 

PR( I ) = (1.0 + PSIC*U3*U3/ (GJ*CP*TT(I)))**GF2 COUPT 

TAU = PSIC/ETAC COUP I 

TR( I )= 1.0 + ( PRC I )*-*GF3-l . 0 ) /ETAC COUPT 

TT( 1+1 )= TT ( I ) *TR ( I ) COUPT 

PT ( I + 1 ) = PT ( I ) *PR(I) COUPT 

TRO( I )= TTCI + D/TO COUFT 

PRO ( I ) = PT(I-Hl)/PO COUPT 

GF3S = GF3 COUPT 

GF30= (GF3 + GF3S)/2.0 COUPT 

ETAO( I )= (PR0(I)^GF30 - 1.0)/(TRO(I) - 1.0) COUPT 

UT2M = UZ * TAN(BET2M( I, 1 ) ) COUPT 

UT2MR = UNM2 - UT2M COUPT 

BAT2NR( I , JS)= ATAN2 ( UT2NR, UZ ) COUPT 

RINCIK I )= BAT2NR( I , JS) * RAD - RK2M(I) COUPT 

U2NR= UZ/C0S(EAT2MR( I, JS) ) COUPT 

RHOT= PT(I+1)/(TT(I+1)*RG) COUPT 

TS= TT ( I-rl ) COUPT 

RHOS= Rh'OT COUPT 

RHDSM= 1 . 0/ ( ( 1 . 0-XWT ( 1 ) ) /RHOS+XWT ( 1 ) /RHOW ) COUPT 

161 UZ3M(I, JS)=UTFL0W/(RHGS*AREA3(I)) COUPT 

UT3M= ( CP* ( TT ( I + 1 ) -TT ( I ) ) *G J + UMM2 *UT2M)/UMM3 COUPT 

US= UZ3M(I, JS)**2 + UT3N**2 COUP I 

CP=CPFN(TS) COUPT 

RH0S= RHOT*(1.0-US/(G2J*CP*TT(I+1)))**GF1 COUPT 

RHOSN= 1 . 0/ ( ( 1 . 0-XWT ( 1 ) ) /RHGS+XWT ( 1 ) /RHOW ) COUPT 

IF((US).GT.(G2J*CP*TT(I-i-l))) GO TO 113 COUPT 

TS= TT ( 1+1 ) * ( RHOS/RHOT ) **GM1 COUPT 

RHOS2=RHOS COUPT 

TS2=TS COUPT 

PS2=PT ( I + 1 ) * ( TT ( I + 1 ) /TS2 ) ** ( -GF2 ) COUPT 

WCAL=RH0S*AREA3 ( I ) *UZ3N ( I , JS ) COUPT 

IF ( ABS( WCAL-WTFLOW) .GT. 0 . 005) GO TO 161 COUPT 

BET3M( I , JS) = ATAN2(UT3M, UZ3M( I, JS) ) COUPT 

SINCM(I) = BET3M( I, JS)*RAD - SK2N(I) COUPT 

UT3MR = UNN3 - UT3N COUPT 

BET3MR( I, JS)= AT AN2 ( UT3MR , UZ3M ( I , JS ) ) COUPT 

U3MR = UZ3M ( I , JS ) /COS ( BET3NR ( I , JS ) ) COUPT 

RDFIK I )= 1.0 - U3NR/U2MR + (RM3( I )*UT3M - RN2 ( I ) *UT2M ) / ( RM3 ( I ) + COUPT 

XRM2( I ) )/RSOLM( I )/U2MR COUPT 


78 

7S 

80 

81 

82 

83 

84 

85 
8S 

87 

88 

89 

90 

91 

92 

93 

94 
S5 

96 

97 
S8 
99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 
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to 


X, OMEGS ( 7 ) » OMEGR ( 6 ) , GAPR ( G ) , GAPS C G ) COUPT 8 

X, RRHUBCG) , RCC6) * RELADECG) , STAGERCG) COUPT 9 

X, SRHUBC7) , SCC7) , SBLADEC7) , STAGESC7) COUPT 10 

X, SIGUMR(G) , BET1SRCG) , BET2SRCG) , AINCSRCG) , ABEUSRCG) COUFT 11 

X, SIGUMSC7) , BET1SSC7) , EET2SSC7) , AINCSSC7) , ADEUSSC7) COUPT 12 

X, UTIPG(6)»UTIP(G),UTIPD(6)» UOUCG) * UMEANCG ) » UHUB(G) , UCG ) » FAI COUPT 13 

X, AREA ( 6 ) » AREAS ( 7 ) , UU2 ( G ) » UT I P2 ( G ) » UMEAN2 ( G ) , UHUB2 ( 6 ) » I PR I NT COUPT 14 

X, I CENT, IICENT»FMR1(6)»FMA2(6), IRAD»FAID COUPT 15 

X* NS, NS1 , RT C£ ) » RMCG) >RH(G)»ST(6)» SMCG) » SH (G) COUPT 1G 

X, DSMASS, AAREAC7) » AAREASC7) , PR12DCG) »PR13D(6) > ETARD(G) COUPT 17 

X, DR(6)»DS(6)> DEOR(G) , DEQSCG ) , BLOCK ( G ) » BLOCKS ( 7 ) COUPT 18 

X, BET1MRC6) » EET2MRC 6) » EET1MSC7) » BET2M5C7 ) » RADI ICG), RADIHCG) COUPT 19 

COMMON /UECTOR/ CPC0C6), TITLEC 12) » RT2C12), RH2C12), RT3C12), COUPT 20 

XRH3C12), PHIREF C 12) * PSIREF C 12) » ETAREF ( 12) * FHIDESC12, 9, 3) , COUPT 21 

XPSXDES C 12, 9, 8 ) » ETADESC 12, 9,8), FHIC12,9,8), PSIC12,9,8), ETAC12,9 COUPT 22 

X, 8) * DPHIAC 12) » DPSIAC12), DETAC12), N5TAGEC 12) » PCTSPDC9) , COUPT 23 

XBET2MC 12, 9) » BLEEDC12,S), TTC13), PTC 13) , PRC 12) » TRC 12) » PR0C12), COUPT 24 

XTROC 12) , ETA0C12), EET3MRC 12, 9) , UZ2MC12,9), UZ3MC12.9), AREA2C 12) COUPT 25 

X, AREA3C 12), RM2C.12), RM3C12), UT2C12), UT3C12), UM2C12), UM3C12) COUPT 2G 

X, BAT2MRC 12,9), DPS ISC 12,9), RSOLMC 12) » RK2MC12), CB2MC12), CE2MRC COUPT 27 

X 12), CB3MRC12) » RINCMC12), RDFMC 12) » SK2MC 12) , SINCMC 12) , BET3MC 12 COUPT 28 

X, 9) * PHIFIXC 12) , DPHIF C 12) * CPREFC 12) » GF1REFC 12) , ETAINPC 12) COUPT 29 

X» FLOCALC 12» 9) » ETARAT C 9) , DB2MC12,9), DB2MRC 12» 9) * DB3MC 12,9), BB3MR COUPT 30 

XC 12, 9) , B2MB3RC 12, 9) , SPEEDF, FLOUIN, U3DU2RC 12) , U2U3C 12) , DB3MRGC 12) COUPT 31 

X, DB3MRN C 12, 9 ) , DB3MRPC 12,8), CPCMCG) , CPCSCG) COUPT 32 

*» RK3MC 12) , RDEUC 12) , RDEFC 12) , GNREF C 12) COUPT 33 

*,PSID1C12,2,8),PSID2C12,2,S),PSID3C12,2,8),PSID4C12,2,8) COUPT 34 

*,FSID5C12,2,8),PSI1C12,2,8),PSI2C12,2,8),PSI3C12,2,3) COUPT 35 

*,PSI4C12,2,S),PSI5C12,2,6) COUPT 3G 

*,PSID1LC12»2»8)» PSID2LC 12,2,8), P5ID3LC 12,2,8) COUPT 37 

*, PSID4LC 12,2,8), PSID5LC 12,2,S),PSI1LC12,2,8) COUP I 38 

*,PSI2LC12,2,8),PSI3LC12,2,B),PSI4LC12,2,3),PSI5LC12,2,8) COUPT 39 

COMMON /SCALER/ RU, PI, G, AJ, RAD, RG, DCP, GJ, G2U, RPMRAD, NSTA COUPT 40 

X, NSPE, NPTS, PO, TO, DESRFM, DESFLO, UNITS COUPT 41 

X, CP, GAMMA, GM1 , GF1 , GF2, Gr 3, SPDPSI , SPDPHI , DRDEUG, DRDEUN, DRDEUP COUPT 42 

X, XAR, XMET , XSTM COUPT 43 

X, STAGEN, SPEEDN, CHAPTS, WTMOLE COUPT 44 

FLOWIN=FLOWl COUPT 45 

DFLOW=FLOUIN COUPT 4G 

FLOWFI-FLOUIN COUPT 47 

IF C UNITS. NE. 1.0) GO TO 81 COUPT 48 

FLOUIN = FLOWIN/O. 453532 COUPT 49 

DFLOW = DFLON/O. 453592 COUPT 50 

FLOPFI = FLOUFI/O. 453592 COUP i 51 

81 CONTINUE COUPT 52 

US=1 COUPT 53 

DO 82 J=1 , NSPE COUPT 54 

IF C SPEEDF. EQ . PCTSPDC U ) ) US=J COUPT 55 

82 CONTINUE COUPT 5G 

C *** CALCULATE THE OUTPUT COUPT 57 

I=ISTAGE COUPT 58 

TT ( I )=TGC 1 ) COUPT 59 

PTC I )=P( 1 ) COUP 1 GO 

WTFLOW = FLOHIN COUPT 61 

RHOT= PT ( I ) / ( TT ( I ) *RG ) COUPT G2 

TS= TT ( I ) COUPT G3 

RHOS= RHDT COUPT G4 

RH0W=G2 . 3 COUPT G5 

RHOSM=1.0/((1.0-XWT(1))/RHOS+XWT(1)/RHOW) COUPT GG 

WTFLOW = WTFLOW - FLOWIN-BLEEDC I, JS) COUPT G7 

U2 = UT2 ( I ) *SPEEDF COUPT G8 

U3 = UT3C I ) -SPEEDF COUPT G9 

UMM2 = UM2C I )**SPEEDF COUPT 70 

UMM3 = UM3CD-SPEEDF COUPT 71 

100 UZ=NTFL0W/(RI-I0S-AREA2( I ) ) COUPT 72 

U= UZ/C0SCEET2MCI, 1) ) COUPT 73 

CP=CPFM(TS) COUPT 74 

RHQS= RHOT*C1.0-U*U/CG2J*CP*TT(I)))**GF1 COUPT 75 

RH0SM=1.0/C Cl.O-XWTCl) )/RH03+XWTCl)/RH0W) COUPT 7G 

IF CCU*U).GT.CG2J*CP*TTCI))) GO TO 113 COUPT 77 
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WRITE(6»406) P(1),P(2)»P(3) 


COUPT 

218 

406 T0RMATC1H , IX, /TOTAL PRESSURE/* 10X*3(F10.4»5X) ) 


COUPT 

219 


WRITECG, 407) PS1,PS2 


COUPT 

220 

407 

FORMAT (1H , IX, /STATIC PRESSURE/, 9X,2(FI0. 4, 5X) ) 


COUPT 

221 


WRITECG, 408) TGC 1 ) , TGC2) » TGC3) 


COUPT 

222 

408 

FORMAT ( 1H , IX, /TOTAL TEMPERATURECGAS)/, 3X, 3CF1Q.4, 5X) ) 


COUPT 

223 


WRITE(6»409) TS1.TS2 


COUPT 

224 

409 

FORMAT (1H , IX, /STATIC TEMPERATURE (GAS)/, IX, 2CF10.4, 5X) ) 


COUPT 

225 


WRITE(6,410) RHOG ( 1 ) , RHOG ( 2 ) 


COUPT 

226 

410 

FORMAT ( 1H , IX, /STATIC DENSITY(GAS)Z,5X,2(F10.4,5X)) 


COUPT 

227 


WRITE(G,412) U21.UZS 


COUPT 

228 

412 

FORMAT (1H0, IX, /AXIAL UELOCITYZ, 10X, 2CF10 . 4, 5X) ) 


COUPT 

229 


WRITECG, 413) U1,U2 


COUPT 

230 

413 

FORMATC 1H , IX, /ABSOLUTE UELOCITYZ, 7X,2(F10. 4, 5X) ) 


COUPT 

231 


WRITEC6, 414) W1,W2 


COUPT 

232 

414 

FORMAT ( 1H , IX, ZRELATIUE UELOCITYZ, 7X,2(F10. 4, 5X) ) 


COUPT 

233 


WRITECG, 415) U( ISTAGE) , UU2C ISTAGE) , UC ISTAGE+1 ) 


COUPT 

234 

415 

FORMAT ( 1H , IX, /BLADE SPEED/, 13X, 3CF10.4, 5X) ) 


COUPT 

235 


WRITECG, 416) US1,US2 


COUPT 

23G 

416 

FORMAT ( 1H , IX, /TANG. COMP. OF ABS. UEL./,2(F10.4, 5X) ) 


COUPT 

237 


WRITECG, 417) WS1,WS2 


COUPT 

238 

417 

FORMATC1H , IX, /TANG. COMP. OF REL. UEL.Z, 2CF10.4, 5X) ) 


COUPT 

239 


WRITECG, 418) ASPED1, ASPED2 


COUPT 

240 

418 

FORMAT ( 1H , IX, /ACOUSTIC SPEED/, 10X,2(F10.4,5X) ) 


COUPT 

241 


WRITEC6, 419) AMAC1, AMAC2 


COUPT 

242 

419 

FORMAT ( 1H , IX, /ABSOLUTE MACH NUMBER/, 4X,2CF10. 4,5X) ) 


COUPT 

243 


WRITECG, 420) AMACH1, AMACH2 


COUPT 

244 

420 

FORMATC1H , IX, ZRELATIUE MACH NUMBER/, 4X,2(F10. 4, 5X) ) 


COUPT 

245 


WRITECG, 421 ) FAI1.FAI2 


COUPT 

24G 

421 

FORMAT ( 1H0 , IX, /FLOW COEFFICIENT/, 8X, 2 ( F10 . 4, 5X) ) 


COUPT 

247 


WRITECG, 422) AAAI, AAA2 


COUPT 

248 

422 

FORMATC1H , IX, /FLOW AREA/, 15X, 2CF10.4, 5X) ) 


COUPT 

249 


WRITECG, 423) ALFA1, ALFA2, ALFA3 


COUPT 

250 

423 

FORMATC1HO, IX, /ABSOLUTE FLOW ANGLE/, 5X, 3CF10.4, 5X) ) 


COUPT 

251 


WRITECG, 424) BETA1, BETA2 


COUPT 

252 

424 

FORMAT ( 1H , IX, ZRELATIUE FLOW ANGLE/, 5X, 3CF10.4, 5X) ) 


COUPT 

253 


WRITEC6, 425) AINCIR, AINCIS 


COUPT 

254 

425 

FORMATC 1H , IX, /INCIDENCE/, 16X,2(F10.4,5X)) 


COUPT 

255 


WRITECG, 426) ADEUIR 


COUPT 

256 

426 

FORMATC 1H , IX, ZDEUIATIONZ, 30X, 1 (F10 .4, 5X) ) 


COUPT 

257 


IF (UNITS. EQ. 1.0) WTFLOW = WTFLOW/O. 453592 


COUPT 

258 


GO TO 111 


COUPT 

259 

110 

WRITECG, 2100) I,PHIC 


COUPT 

2G0 

2100 

FORMAT (10H FOR STAGE, 13, 18H , COMPUTED PHI IS,F8.4,06H 

STALL) 

COUPT 

2G1 


GO TO 111 


COUPT 

2G2 

120 

WRITECG, 2110)1, PHIC 


COUPT 

263 

2110 

FORMAT (10H FOR STAGE, 13, 18H , COMPUTED PHI IS,F8.4,0GH 

CHOKE) 

COUPT 

2G4 


GO TO 113 


COUPT 

2G5 

111 

FLOWIN=FLOWIN+DFLOW 


COUPT 

266 


IF C FLOWIN. LE . FLOWFI ) GO TO 81 


COUPT 

2G7 

113 

CONTINUE 


COUPT 

268 


DO 112 1=1, NSTA 


COUPT 

269 


DO 112 J=1 , NSPE 


COUPT 

270 

112 

DPSISC I, J) = 0.0 


COUPT 

271 


RETURN 


COUPT 

272 


END 


COUPT 

273 
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